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1«0 ABSTRACT 

This diagnostic Is divided into three basic sections? 

1« A check of the console terminal interface logic* 

2« A check of 
the printing characteristics and control logic* 

3« An echo portion desi 
gned to check the keyboard and to aid in 
the diagnosis of terminal pr 

oblerasa 

Patterns used by the printing tests yere chosen for ease of visual we 

rification« The echo tests yere designed for maxiwuro flexibility^ 
iiith 

Test 24 alloying any desired pattern to be used* 

2^0 REQUIREMENTS 
2« 1 

EQUIPMENT AMD ASSIGNMENTS 

The diagnostic is written to run on all models of t 
he PDP^Il coniputer 

nith either a KLll or DLll console terminal interface* The 
diagnostic 

is preset to test up to 16 additional teriainals ( on BLUM'S) assig 
ned 

between addresses 776590 and 776676« This preset quantity (16) and 
pre 

set address <776500) can be changed by depositing the quantity in 
DLMR and t 

he starting address in DLADR« For example^ to allo^ for up 
to 31 additional te 

rrainals^ the address 775610 could be placed into 
DLADR and the octal equiwa 
lent of 31^ i«e«^ (37) Mould be placed into 
DLNR« The nufnber of additional DLl 
l*s actually tested will be adjust- 
ed autoniatlcally down^siard based upon the 

first DLll address (iiithin 
the implied range) found to be unresponsive* Thus 
if there is no DLll . , , 

present to matcb the address in DLADR only the console te 
rminal yill 

be tested* Therefore^ all DLll^s in excess of the console termi 
nal 

must ha¥e contiguous address assignments with the lowest address cor" 
res 



ponding to the ¥a1ue in DLADR* 

The console terminal (assigned standard) can b 
e reassigned by ^ placing , ^ ^ . ^ „^ 

the address of its receiver status register into CO 
NADD and its re- 
ceiver interrupt ¥ector into CON¥SC« This reassignment can be 
made to 

a teriainal y^lthin the set of terminals Implied by DLNR an^ DLADR with- 
out adverse effects Note that a terminal with a slower speed (if any) 
ail! 

deteriine the speed at «hich all of the terminals are tested^ 
Such a termina 

1 should generally be excluded frow the testj^ or tested 
separately* (Refer 

to the syrabol definitions in the listing for the 
abo¥e mentioned locations^) 



2.2 STORAGE 

The diagnostic program uses all of 4K of iiefflory Mith exception 
of the 

area used by the absolute loader« 
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2.3 PRELIMINARY PROGRAMS 
Any ap 

plicable PDP«-il diagnostics should be run on the processor* If 
any errors a 

re encountered durinq the interface cheeky refer to the 
appropriate interface 

diagnostic for further help in locating the 
problem i f needed* 



2«4 

AODITIOf^AL PROGRAMS 

This diaqrnostic is for verification of basic terrainal fu 
nctions only« 

If^ the terminals under test have hardware options Installed run 
noslic MAinDEC«ll«»DZLAF-A ^ the LA36 TERMINAL OPTIONS TEST* 



3«D 

LOADING PROCEDURE AMD INITIALIZATION 

Load the LA36 diagnostic program tape 
following norisal procedures* 

Before starting the program^ refer to the desc 
rlption of the routine 

"DL¥'''« Time delays used by the prograra are a function 
of the CPU 

model and memory type and should be set-up before running the di 
agnos- 

tic« The routine is preset for a PDP-11/05 with core meraory« Refer 
to Section 2«1 for non-standard terminal addresses and for testing 
multiple 
DLll interfaces* 

If a hardware switch register does not exist/, the program w 
ill use the 

contents of location 176 as the ¥alue of the switches* Therefore^ 
be 

sure to load location 176 with the switch ^alue before starting the 
pro 

gram when not using hardware switches* 

If the CPU is an LSI--11^ 11/03 be sure 

to set switch register bit 9 to 
a 1« Special tests are run on the DL¥ll inter 
f ace« 



4«1 STARTIf^G PROCEDURE 



4«1 STARTING ADDRESSES 

200(B) = Riin rnith S%iitch Reaister Control 

- perform Console T 

erminal I/O tests« 

204(8) = Run yith S^iitch Register Control 

- skip Console Terminal I/O tests« 
210(8) = Run with fCeyboar 

d control 

perform Console Terminal I/O tests. 

214 

(8) = Run yith Keyboard Control 

«- skip Console Terminal I/O t 

ests* 
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4«2 Switch Register Control With I/O Tests 

Set the syitch r 
agister to 200(8) and press the load address 
syl tch« 

Set 

sHitch regist|| ^||^^ to a 1 if the processor is an 

3« Refer to Section 5«1«5« 

C« Set the snitch register bits 7-0 equal t 
o the paper width in 

terms of the number of columns (octal)* Ref 
er to Section 

5 4» 1 « 8 s 

D« Set the syitch register bit 8 equal t 
o 1 or and press the 

start snitch* A message Mill be printe 
d indlcatlncf the 

number of DLll^s being tested* Refer to Section 5«1« 

6® 

S« If bit 8 yere zero yhen startlngj. the Printer tests are exe- 
cuted sequentially^ after the entire series of I/O tests are 
e 

x@cuted« 

F« If bit 8 yas set when the start switch Mas pressed^ the e 

n« 

tire series of I/O tests «ill be executed and the CPU nill 

halt at location SELHLT* The program %iill then be waiting 
for 

control ¥ia the syitch register* 



4«3 Switch Register Control Mithout 
I/O Tests 

Sarae as Section 4» 2 except in step set the switch register 

to 
204(8). 
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4«4 Keyboard Control - With I/O Tests 

km Set the switch 
register to 210(B) and press the load address 
switch* 

R « Se 

t the switch register bits 7-0 equal to the paper width in 
terras of 

the number of columns (octal)* Refer to Section 
5«1«8« 

C, 

Set snitch register bit 9 to a 1 if the processor is an 
LSI-11^ 

ll/03« Refer to Section 5«1«5« 

D« Set SMitch 8 and press the start sw 
itch« A message will be 

printed indicating the number of DLll^'s be 
ing tested. Refer 

to Section 5«1«6« 

B® If bit 8 Mas ^ero ^he 
n starting^ the printer tests are exe- 
cuted sequentially after th 
e entire series gf I/O tests are 



execute 

F® If bit 8 were s 
et Mhen the start switch was pressed^? the en- 
tire series of I/O test 
s aill be executed followed by the se- 
lect test message® The program 
Mill then be waiting for a 

test selection via any terminal keybo 
arde Refer to Section 
5®2® 



4*5 keyboard Control - Without I/O 
Tests 

Same as Section 4®4 except In step hf set the switch register 
214 (8)« 



5®0 OPERATING PROCEDURE 

The program can be controlled in e 
ither of two methodsi by the con- 



sole switch register or from the ke?bo 

ard of the temiinaKs) under 

test* 
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5«1 SWITCH REGISTER COMTROL 
The variou 

s syltches and their functions are listed beloy« Switches 
raav be changed. , . . . . 

and set as desired except as noted in the specific 
switch descriptions* Refe 

r to the detailed switch descriptions for 
furtherir more complete information 



SWITCH NUMBER DESCRIPTION 

15 ICiip) - HIL 

T AT END OF TEST 

O(down) = CONTINUE TEST SEQUENCE 

14 ICup) = COMTIMUE Df^ ERROR 

O(dOMn) - HILT ON 

ERROR 

13 l(up) = DRI¥E ONLY CONSOLE TERMINAL 

O(doyn) = ORI¥E ILL TERMINALS 



|1. ^^^^ ICwp) = LOOP OM 



INDI¥ID04L TEST 

O(doen) = NORMAL TEST SEQUENCE 

9 

l(up) = CPU TYPE IS AN LSI-11^ 11/03 
O(doMn) = 

ALL OTHER PDP-11 "S 

e l(iip) = RUN TEST ONCE AND HALT 

aCdOTO) = LOOP ON TEST SEQUENCE 

5-0 

TEST NUMBER SELECTION 

T'-O NUMBER OF COLUMNS AT ST 

ART"»U? 



5«1«1 Switch 15 

With switch 15 in the up position^, the pro<iraf« 

will halt at the end of 
the current test« Replacinq switch 15 to the down pos 
ition and press- 



ing COI^ITIMUe ylll continue the normal test operation^ Dur 
Ing the 

halt^ any of the control snitches may be changed or set as desired* 



5«1«2 Switch 14 

Placing switch 14 In the up position ^111 cause the pro 
gram to contin- 
ue on errors during any of the I/O tests only« With saitch 1 
4 doun/ 

the program will halt {at SRRHLT) on any errors during the 1-0 tests 

with the location of the error in R0« Pressing CONTIMUE «ill cause 
the pro 

gram to continue if switch 14 is down« With switch 14 up# 
pressing contin 

ue will cause the program to loop on the error* 
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NOTE 

Error halts cam occur only during the 
I/O tests« 
The terminal is connected to 

a serial line and there is no error 

in- 
formation returned to the pro<iram from 

t 

he terminal* Therefore the program 

cannot report errors 
occurring in the 

terminal* Errors detected during the 

interface tests will result in halts as 
described abo 

¥e« 



5«1«3 SMitch 13 

placing switch 13 in the down position nill cause 

the driving of all 
multiole terminals during the Printer tests only* If sui 
tch 13 is up^ 

only the console terminal is driven* 

Notei Switch 13 shoul 
d only be changed Mhen the program is waiting 
for a test selection* 



4 Switch 11 

Placing switch 11 up at any time will cause the program to loop 
on the 

current, test as long as switch 11 remains up« Replacing switch 11 
Qom will cause the program to resume normal operation at the comple- 
tion of 
the testm 



5«1,5 Switch 9 

Placing switch 9 up at the start of the test 

will cause an automatic 
change in the DELAY timing^ and the execution of 

special DLVll I/O 
tests* The DLVll has no maintenance mode and will cause th 



e program 

to hang if tested as a DL11« 



5«1«6 Syitch 8 

With syitch B 

in the doyn position the prcqraiB yiil continue to 
through the present t 

est sequence* Placing switch 8 up will cause the 

program to halt (at SflLHLT) a 

t the completion of the current test* 

After the halt^ set the control switc 

hes as desired and set switches 5 

to to the next diesired test number^ and the 

n press CONTINUE to start 

the test« 
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Mhen starting the diagnostic the operator 

can select a specific test 
rather than au toraaticaliy starting the printinq 
test sequence by set-» 

ting switch 8 up before starting the diagnostic* Upon c 
ompietion of 

the I/O test sequence (if being run) the program Mill either ha 
It at 

SELHLT waiting for a test selection ¥ia the SMitch register or print 

he select test iiessage and %iait for a test selection from any key-* 
board« R 

efer to Section 4 for further inf orrnation« 



5«1«7 Snitches 5 to 
SMi t 

ches 5 to are used to select specific tests when under switch 
register con 

trol« Test nufflbers are alMays in octal* 



5^1«8 Switches 7 to (at start 
-up only) 

It start-up only^ switches 7 to are used to set the desired maxi 
mum 

number of columns the diagnostic is to test« If the number set is 
gre 

ater than 13 2(10) or less than 30(10)/ the program yill default to 
132(10)« T ^ . / p 

he Falue set must be in octal forra« Thus^ for norwal oper*- 
ation leaire s%iitche 

s 7 to dOMfx to test the full 132(10) columns^ 
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5^2 KEWOh^.D COMTROL 
The p 

rogra® Mill be under keyboard control Mhenewer the diagnostic is 
started at lo 

cation 210 or 214^ S«ltcfies on the console switch regis- 
ter yill hawe no effe 

ct when under terminal control except for switch 
15« The I/O tests camot be 
selecterl ^hen under kefboar^ controls 

To stop a test at any tiffle# type the 

UBOOT^ or '^OELETE^^ kej on any 

fc@fboarcS^ knw teriinal mar stop the test and 

select the next test If 

switch 13 is doMH^ Mhen a test is stopped bf typing 
a ^^ROBOIir® or 

^^D|LETE^V the test aill ternlnate and the folloMing messa<ie 

SELECT TEST NUMBER 

t this tiffle^ tfpe the desire 

test rmiifoer folloMed hf anf one of the 
®ll©airig control charactersi 



^ (period) ^ Run the selected test once and return for another 

test selection^ 

L = Loop on the selected test unt 

11 a ^^RUBOUr^ is 

S - Start the 

test sequence Mith the selected test® 

Continue to loo 
p on the printing test sequence 

until a 'mmom'' is typed 

The ^^L^^ or ^®S^^ raay he either upper or loyer case^. byt the test nyraber 
m 

ust alyafs be a 2 digit octal nyrober^ The test number and terminator 
are echoe 

d by the program^ thus each character «111 be printed tyice 
if the terminal 

is in half duple^^ For all echo tests^ the ^L^^ and 
^^S^^ i^ill only run the tes 

t once (the sarae as if typing a period)® For 



all option tests^ the ^'S" will o 
nly run the test once (the same as if 
typing a period)^ ho%je¥er^ typing an "L" 
yili cause the program to 

loop on the selected test« If an error is detect 
ed in the test selec- 
tion (illegal test number or control character)^ a quest 
ion mark is 

printed and the laessage yill be repeated® 
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i«1 TEST DESCRIPTION 



6.1 PRINTIMG TESTS 

These tests are desicfned as a test of the print! 
ng mechanism and the 

associated control logic* At the beginning of each 
test^ the test 

nyraber yill be printed indicating yhlch test is being execyted a 

the test is a function of the nuraber of colymnSif the number of columns 
being tested Mill be inf1icatef1« k detailed description and sample 
patterns 
for each printing test folloysi 

6^1^1 Test - Data Path Test 
This t 

est is used to test the data lines to and through the interface 
and t© the 

terminals An alternating bit pattern is sent ^hich yill 
print alternating 

and U^s in a check: erboard pattern to the naxiisuii 

coluiin widths The startina c 

haracter for each line is alternated and 

a total of four lines are printed* 

Mith the Into Line ^eed Option set to produce an automatic line feed 
after e 

¥erf received carriage returni, there ^ili be a blank line 
between each prl 
nted line* 

EIIMPLES 

0^0^0^0*0^0*11*0^0^0^0*0^0^0^0* 

'^O^O^O^O^O^O^U^O^O^O^O^O^O^O-^O 

0*0*0*0^0*0^0*0*0*0^0*0^0^0^0^ 

6mlm2 Test 1 - Printable Character Te 
st 

This test produces a check of all 94{10) printable characters^ The 



ch 

aracters are printed lo groups of three with three groups per line# 
s@par3[t6(3 

three spaces between groups* The first column con- 
tain all ASCII 

codes from 040 to D77« Coluran two yill contain all 
ASCII codes from 109 to 13 

7 - primarily the capital letter set* The 
last column will contain all ASC 
II codes from 140 to 176 - primaril? 
the sfiall letter set* 

With the Auto Lin 

e Feed Option set to produce an automatic line feed 
after e^ery received c 

arriage return^ there Mill be a blank line 
betyeen each printed line^ 
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EXAM 
PLES 



EE 



bbb 



f f i 

liif ft 



KKK 



hhb 



m & m 

((( 



kick 



BB 

ccc 

ODD 

E 

FFF 
GGG 



III 
JJJ 



LLL 

MMM 



NNM nun 

111 

QQQ qg^^ 

333 

44 

4 TTT ttt 
555 
666 
7 

77 WMW MMM 
888 
99§ 

T^llt 

s a « 
/ / / 
«< 



»> 

??? 



000 

ppp 



RPR 
SSS 



UUU 



XXX 



\\\ 
11 



aaa 



ccc 
ddd 



f ff 

ili 
j jj 

111 
miniii 



ooo 

PPP 



rrr 

SSS 



mm 
www 



XXK 



6«U3 Test 2 - Non-printable Character T 
est 

This test checks all non^-printable characters that ha^e no control 
f 

unction in the LA36 terminal or the LA36 options (such as CR^ LF^ BS^ 



& BEL)« 

First the ASCII code Mill be printed follosed by the mnemonic 
after a fey se 

paratinq spaces* Followincf the «ne^onlc^ the actual 
control character will be 

sent three times and nothing should happen 
at the printer* This pattern 

is repeated^ three times on a line^. 
until all of the non-printing characters 
ha¥e been tested« 

irith the Auto Line Feed Option set to proiuce an automatic 
line feed 

after every receiired carriage return^ there yill be a blank 
ine 

between each printe^l iln@« 
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EXAMPLES 

001 



§1? 



096 kCK 
025 NAK 

III 

SOB 034 ^~ 



SOH 


002 


STX 






OLE 
DC3 




DCl 
DC 


022 


0C2 


Sf N 
SM 


til 


ETB 


030 




GS 
DEL 


036 


RS 


037 


us 



6®1®4 Test 3 ^ Carriage Return Test 

This test checks the carrla-c|e return fr 

om all e¥ein niimbered columns 

and the spacing gf the solenoid head from the 1 

eft ®argiri« It is also 

a good check for proper operatioii of the position decod 
er ® 

The test prints a full line of alternating O^s and spaceS|. starting 

M 

1th a 0* kt the end of the line the print head Is returned to the 
left marg 

in ^ith a carriage return* The spaces are then filled in by 
spacing the prl 

nt head out fro® the left margin to the first space^ 
printing an ^^X^% and exec 

uting a carriage return^ This pattern is re- 
peated until the line is complet 
ed* Check to see that all X*s are in 
the middle of the space between the t«o z 
eroes on either side of it^ 

EIINPLEI 

0X0X0X0X0X0X0 10 XOIOXOXOXO 

XOXOI 

M|th the Into Line Feed Option set to pro'^uce an autonatlc line fe 

after ewer? received carriage return^ this test Mill print a line of 

and spaces^ then print a diagonal line of X^s^ To correctly check 
the encoder^ 
the lut© Line Feed Option should be disabled^ 



EXAHPLEt 




X 

X 

X 

X 



X 

X 

X 



PACE 15 

6«1,5 Test 4 - Multiple Line Feed Test 
This test check 



s the line feed capability 
¥aricius groups of li 
ne feeds interspace'1 yith i 



of the printer by sending 



rspace'l uitb reference llnes« The 
number printed as the reference 

line indicates the nyraber of line 
feeds that fol!oM« The first and last 

lines also contain a string of 
dashes as reference points for raeasyrinq the t 
otal distance betyeen 

the two dashed lines^ i«e*^ 63(10) lines* 
With the k 

uto Line Feed Option set to produce an automatic line feed 
after ewer"y carria 

ge return^ the number printed «ill indicate one less 



€han the number of line fe 
" ' ' ' " blank I 

iashed"! ines "illl then"be 69'lines^ 



eds (th e number of blank lines) that follow. 
The total distance between the two 



EXAMPLE : 



01- 

"02" 
04 



08 



16 

32 
00- 



15 Blank Line 



31 Blank Lines 
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6«1«6 Test 5 - Sinqle Line Fee4 Test 

This test is designed to check the tint 

irig of single line feeds and the 

capability of doing line feeds In all colum 

ns« Tyo reference lines 

are used by this test (and Test 6) which also can be 
used to easily 

check the number of columns the printer is printing. 
The fi 

rst reference line contains 130(191 zeroes folloMed by two 2^s 
if testing 13 

2(10) coluranse If less than 132 coluf^ns^ the line %iill 
contain O'^s for two 1 

ess than the maxltBum number of columns folloned 
by the tmo 2"'s« This referen 



ce line is a quick check for 132(10) co*- 
lumns If testing the full 132(101 col 
utnns* The second reference line 



prints a string of numbers ( I to 9 & ) rep 

fated to the inaxiraui co- 
urBn« This line^^ again^ can be used as a quick check 
of the nufaber of 
columns^ 

The line feed test is accomplished bft printing t 
he first reference 

line of 0*s and tun 2''s| then either sending €0 
(10) 3's. if 

testing 132(10) coluians^r or waiting 1«8 seconds for an LCV^ i^" tes 
ting 

less than 132(10) columns* If testing 132(10) columns^ nothing 
sh, 

ould^ happen^ except for an LC^ ^ at the end of the line* The 3''s 
should be 

lost and newer printed^ After the LCV^ with the print head 
at the extreme rig 

ht^ a carriage return - line feed Mill be sent fol~ 
lo«ed by repeated backs 

lashes and linefeeds to print a diagonal 

line down the paper* Mhen a backs 
lash is printed in the waximua co~ 
lunin|r a carriage return will be sent iram 
ediately after the line feed 

and the second reference line of sequential number 
s Mill be printed^ 

After completing the line^ a carriage return « line feed 
will be sent 

and the program will wait one second for the carriage return f unc 
tion 

to complete* After the delayer the reference line will be repeated^ 
th 

e last line being guaranteed to be correct* Any timing problems 



during th 

e line feeds nil! shoy as misprints or missing characters 
during the first 

16(10| characters of the niiddle reference !lne« 
Aiso^ any paper feed pro 

bieras tfill cause mlsallgnaient of the slashes 
forming the diagonal line* 
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EXIMP 
LEI 



00O00OODO0OOO0OOO0O00OODO0O022 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 



\ 

\ 



\ 



\ 

\ 

\ 



\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

123 45 67890 123456'?890 123 4567 890 

12345 6789D 12345 67890 1234567890 



Mith the Auto Line Feed Option set to produce an automatic line feed 
after every received carriage return^ there be a blank line ever? 



plqce a 

carriage return is executed. 



1 
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EXAMPLEI 



0000000922 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

1234567893 
1234567B90 

6®1«7 Test 6 - Backspac 
e Test 

This test is designed to test the print timing as in Test 5 as nell as 
the backnard and foryard movement of the print solenoid head* 

ff\Q test cons 
sts of the same first reference line as in Test 5 then a 
carriage return-line 

feed« A full line is then printed using the fol-- 
o%iing pattern? 

Foryard Slash ^7" 
Backspace 

Back Slash "\" 

This 

pattern produces a line of all X*s, The t«o slashes should cross 
exactly at 

the middle^ producing the X character. When the line is 
completed a carriage 

return-line feed is sent and the last two refer- 

ence lines are printed as in 

Test 5* Any timing problems %fill show in 

the first 16(10) characters of the mi 

ddle reference linei again as in 

Test 5« 



with the 4uto Line Feed Option set 
to produce an automatic line feed 

after every received carriage return^ 
there will be a blat^k line 

between each printed line« 

EXAMPLE: 



D0O0OOO0OOO00O0O0DOOO0O0O0O022 

XXXXXXKXKKXXXXXXXXXXXXXKXXXKXX 

123 45678901234567 89012345 67890 

12345 6789S 123 45678901234567890 
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6«1«8 Test 7 - Overprint Test 

This test is designed to check the spacing 
and repeatable printing 

characteristics of the printer* Three rows of ch 
aracters are each 

overprinted two times* The roys consist of the folloisinq c 
haracters 

alternated across the lines 

Rom 1 M-SP 

Rom 2 SP»a 

Rom 3 &-SP 

The resulting patter 

n aill be a checkerboard pattern and the over- 
printed characters should 
be aligned properly Mith the initial char- 
acters« 

EXaMPLEl 

M 

With the Auto Line Feed Option set to produce 

?n automatic line feed 
ter every received carriage return^ the lines Mill 
not be overprint- 
ed* There Mill be three lines of each character Mith a hi 
ante line 

betMeen each group of characters* The characters in each group shoul 
d 

be in the same columns* 
EXAMPLE? 

MMMMHMMMMM 

MMMMNMMMMM 
ft d § (a (a 

§ § « ^ 



Htm f f f ' 
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6«l«9 Test 10 ~ Printing Frequency S%ieep Test 
This test prints the char 

acter '*H" repeatedl\r^ 30(10) characters per 
line for four lines« During t 
he first tuo lines^ the time internal 
between characters is increased frora 30(1 
0) niliiseconds to 1«B sec- 
onds using the follonina formula to create a loaa 
rithmic increase! 

Mey Dela¥ = Old Delay 4- Old Delay/16 ^ Old Delay/1 

28 

The last two lines do just the reverse* The time internal between 
c 

haracters is decreased from 1« B seconds to 30(10) ailll iseconds 
using the 

folioying formula to again create a logarithwic decreases 
Mey Delay 

= Old Delay » Old Dela¥/16 =■ Old Oelay/128 

Look for possible misalignment o 

t the characters or spaces between 

characters as an indication of timing pr 

obiei^s® 

^ith the Auto Line Feed Option set to produce an automatic line fee 

after every receiired carriage return^ there Mill be a blank line 
bet Me 

en each printed line» 
EX^MPLEI 

HHHHHHHHHHHHWHHHHHHHHHHHHHRHHH 

HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHH 

H 

HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 

6«1«10 Test 11 Ribbon Feed T 
est 

This test checks the ribbon feed raechanisfn by printing a single column 
o 

f 24 lines of X'^s down the left hand margin of the page* Visually 
check for 

proper operation of the ribbon feed mechanism during this 
test« 



i 



Mith the 

Auto Line Feed Option set to prodyce an automatic line feed 
after e^-ery re 

cei¥ed carriage return^ there will be a blank line 

between each printed lin 

e» 

EKIMPLEt 

X 
X 



X 
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S.l.U Test 12 « Printer Bell Test 



his test checks the printer bell buffer to insure that ei<|ht bells 
are dist 

inctly heard^- even nhen sent at the maximum transfer rate* 
The program sends 

8 bell codes at the maximum rate to the printer 
then waits 2«5 seconds to 
alloM the operator to hear the bells* 



6^1.12 Test 17 Life Test 



Ls test runs continuoi^ly and Is run as an indiwidual^ special test« 
It is not 

part of the standard printing test sequence* 

This test prints 2 lines of each 

printable character and then repeats 
continuously* The second line of e 
ach character is overprinte^l 4 



times to conser¥e paper« At the end of each com 
plete pass through the 

character set^ a message is printed indicating the nu 



liber of passes 

executed^ If any character (except ^''Rubout") is typed on the fee 
yboard 

during this test^ the pattern will change and restart with the typed 
character^ This yill only happen if keyboard control is in use« 

EXAMPLE! 



AAAAAAAAAAA^AAAAAAAAAAAAAAAAAA 
AAAAIAAAAAAAAAAAAAAAAAAAAAAA 

AA 

BBBBBBBBBB8BBBBBBBBBBBBBBBBB8B 
B8BBBBBBBBBBBBBBBBBBBBBB 

B8BB8B 

If the Auto Line Feed Option is set to produce an automatic line fe 
ed 

after e^ery received carriage return^ the test will print six lines of 
each 

character with a blank line betaeen the first and second lines as 
yell as betw 

een each group of characters* 
EXAMPLE? 

AAAAAAAAAAA AAAA 




kkkkkkhkkkhkkkk 

kkkkkkkkkkkkkkk 
kkkkkkkkkkkkkkh 

kkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkh 

BBBBBBBBBBBBBBB 
BBBBBBB8BB8BBBB 

BBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBB 



I 



i 
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6«2 SCHO TESTS 
These 

tests are riesicined as a test of the keyboard and an aid in iso« 
lating troub 

les yithin the terminal* kt the beginning of each test^ 
the test nuraber yill 

be printed indicating which test is being execut- 
ed« Typing a «'RUBOUT" or 
''DELETE'^ at any time^^ whether in keyboard 
control or not^ Mill exit the current 

Echo test and print a test ter- 
mination message^ If in keyboard control 
^ the select test message 

will be printed and the program nill await a test sel 
ection as usual* 

In ssitch register control^ the program yill halt (at SELLHLT 



1 waiting 
tr- " 



!or control via the snitch register, A detailed description of eac 
h 

test folloysi 

6^2sl Test 20 - Character Echo Test 
This test is de 

signed to operate the terminal in a simulated local 
raoae« Any character ty 

ped on the keyboard (except a ^^rubout") i#ill be 
echoed to the printer* 

If th 

e LA36 terminal is in half duplex with the Auto Line Feed Option 
available^ t 

fpinq a carriage return laay cause a garbled response on 
rie terminal during t 
his test® 

6«2«2 Test 21 - Line Echo Test^ Fast Rate 
This test contin 

ually sends full lines of any character up to the max- 
imum column Midth« The 

test prints a ^^0" character nhen started until 
a key is typed on the keyboards 

The program will then send the typed 
character until another character is t 
yped or the test is terminated 

by typing a "rubout"* The characters are transm 
itted at the maximum 

rate Mith a carriage return-line feed inserted after 



every 132(10) 
pr in table characters « 

f the LA36 is in half duplex when runn 
nq this test^ characters raair 
e lost or garbled whenever a character is type 
d on the keyboard* 

Mith the Auto Line Feed Option set to produce an autowatic 
line feed 

after e^ery carriage return^ there iiill be a blank: line betMeen 
8a«?h 

printed line^ 



6^2«3 Test 22 - Line Echo Test^ Sloy Rate 
This te 

St is identical to Test 21 except a delay of 1^8 seconds is 
inserted betwe 

en each character to allow the print head to perform an 
LC¥ between characters* 
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6«2«4 Test 23 «• Charac ter/Corle Echo Test 

This test yiJl print the octal c 
ode received by the processor followed 
by the character or the mnemonic of the 
character every time a key is 

The parity of the rece 



pressed on the keyboard* 
ived code will be in- 
dicated as either od^ or even« 

between char** 
acters for the line to be printed* 

With the Auto Line Peed Op 

tion set to produce an automatic line feed 
after every received carriage 
return^ there Mill be a blank line 
betaeen each printed line* 

EXAMPLEI 



Alloii sufficient time 



301 


A 


ODD 


263 


3 


ODD 


215 


CR 


E 


240 


SP 


E¥E^ 



6«2«5 Test 24 - Selected Pattern Echo Tes 
t 

This test Is designed to dive maintenance the flexibility to choose 
the 

ir OHn patterns for Isolating any specific probleras which may arise 

in the tiel 

d. 



Type any characters {except control-C and rubout) and each character 
be echoed as typed* h raaxinium of 256(10) characters may be in- 



Tfp 

putteda 



o carriage returns or line feeds are Inserted 
gram# all charac 



by the pro- 



ters lust be Inputted bv the operator* To terminate 
the input string type a co 

ntrol«C# the proqran Mill then continually 
echo the inoutted pattern* To sto 
p the printing^ type control-»C» The 
proaram will stop print ing the pattern and 

Mill Mait for either anoth- 
er pattern input terminated by a con trol-C^ or the 

same pattern may be 
used again by typing control-C« To exit the test at any t 
imef type a 
*'ruDOut^« 



When any options are available^ be careful iihat char 
acters or char- 
acter sequences are selected!* 



6«2,6 Test 25 Bell Echo 
Test 

This test is designed to test the bell on column 64 if typing has 

curred on the line* The test prints a message? 

T¥PE AMY PRINTABLE CHlR 
ICTER AND LISTEN FOR BELL 



After the test message is printedr t?p 

e any printable character on the 

keyboard* The character will be echoed and th 

e Dell should rlng« The 

message nill then be typed again« Type the '^rubout^'' k 

ey to teriinate 

the test at any time* 
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6«4 STANDARD I/O T5STS 
These tests 

are designed as a brief check of the console terminal 
terface Ioqic« E 

ach check Is structured as an independent test and 
the switch register control 
s may be used« A description of each test 
is given in the program iistinci« 
Any errors encountered during the 
I/O tests will cause a halt at location ''ER 
RHLT'^ if snitch 14 is down* 



i 
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m 

600 

il 

1000 
1300 

II 



Hp 
220 



2800 

li 

3200 

li! 

3800 



4200 

4300 



.TITLE CZLACEO LA36 TERM (DLll & KLll) 
LA36 DIAGNOSTIC (DLll 6 KLll INTERFACE) 



;AUTHORS: 
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14 
13 
11 

09 
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. SBTTL SWITCH REGISTER OPTIONS 



;SWITCH 
I 15 



? 05-00 
; 07-00 



OP (1) 
DOWN (0) 

UP (1) 
DOWN (0) 



UP (1) 
DOWN ( 



0) 



UP (1) 
DOWN (0) 

UP (1) 
DOWN (0) 

UP (1) 
DOWN (0) 



HALT AT COMPLETION OF CURRENT TEST 
CONTINUE NORMAL TEST SEQUENCE 

CONTINUE ON ERROR 
HALT ON ERROR 



LOOP ON INDIVIDUAL TEST 
NORMAL TEST SEQUENCE 

CPU TYPE IS AN LSI-11, PDP-11/03 
ALL OTHER PDP-11 CPU'S 

HALT TO SELECT TEST AT END OF CURRENT TEST 
LOOP ON TEST SEQUENCE 

TEST t SELECTION 

a OF COLUMNS AT START-UP 



4700 

m 

5100 

5200 



5600 
5700 
5800 

m 
IT 



' SBTTL SPECIAL OPERATIONAL INFORMATION 



BEFORE START UP REFER TO THE DESCRIPTION OF THF ROUTTMF "ni V" 

MFMnRV^nrlrrnS f tS*??""! "rjCH REGISTER SHOULD USE 
MEMORY [,OCATID» 176 AS t SOFTWARE SKITCH REGISTER. 

l8{!T?5iii''8gJJf II ?S? ?iR"if{Sr5SgEgM§l'S»i=5riMkRE 



) 



gZ^ACEO^Lne^TERM (DLll & KLll) MACRO MlllO 



STEM EQUATES 

690 
700 



7 40 

780 
790 



83$ 
840 
850 



890 
900 

III 
III 

'4 

980 

9901 



m 

PP 
m 

m 

m 



m 

2300 



25-.AUG-78 10:13 PAGE 3 
.SBTTL SYSTEM EQUATES 

REGISTER EQUATES 



PC=%7 

PSW=177776 
SYSTEM EQUATES 



BIT0=1 
BIT! * 
BIT2 - 
BIT3«1 



BIT1$«2 
BITl 
BIT! 

BITi5=106 

§clps8=BITl4 
NITRSS=BIT11 



26 



clps6= 
. ITRS5=: 

PRT¥7=340 
PRTY4=200 
ACRLF=200 
LSI11=BIT9 

PROGRAM TRAP EQUATES 
EMf*2 



;SCOPE SWITCH 
?TEST LOOP SWITCH 

JPRIORITY LEVEL DEFINITIONS 

JFLAG FOR LSI-11, 11/03 



EHXLT=EMf*2 
STRDR?=EMT+3 
STPCR?=EMt*4 
CHAIN=EMT*5 
CHALT=EMT*B 
TYREMsE - 



EMT+7 



104513 



DELAY=EMT+10 
TTYCtL=EMT*ll 
CRLP=EMT*i2 



SCPLF=BMT+13 



SYSTEM^EQUATEr"** ^ ^^^^^ 
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_ ^ EMT+15 
PRTHDR=EI4T*16 
PRNT=EMf*-17 
READ=BMT*2Q 
AREAD»EMT*-21 
CR=BM1*22 
BTOASC=EMT*23 



LA36 TERM (DLll & KLll) MACRO 

:HER & STARTING ADDRESSES 



000000 
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-SBTTL TRAP CATCHER S STARTING ADDRESSES 



000600 
000600 000000 



.ENABL ABS^AMA 
.ASECT 



.♦2 

HALT 

.♦2 

"Ah' 
"Ah' 

HALT 

.♦2 

HALT 

.♦2 

HALT 

EMTINT 

PRTY7 



. = 42 



LOGICAL 
.=52 
010000 
.=174 



DISPREG: 
SWREGt 



mi 



00214 000167 000552 



JMP 
JMP 
JMP 
JMP 



.WORD 
.WORD 



STARTl 
START2 
STAPT3 



JUNASSIGNED TRAP 

?SP OVERFLOW/ BOS ERROR TRAP 

JRESERVED INSTRUCTION TRAP 

yTRACE TRAP 

;TRAP TO CALL lOX 

?POMER FAIL TRAP 

?EMT TRAP 



ySQFTWARE DISPLAY 
^SOFTWARE SWITCH REGISTER 

;START UP WITH I/O TESTS RUNNING 

JSTART OP, SKIP ALL I/O TESTS 

?START UP TERMINAL CONTROL WITH I/O TESTS 

JSTART OP TERMINAL CONTROL WITHOUT I/O TESTS 



; BOTTOM OF STACK 



CZLACEO LA36 TERM (OLll & KLll) MACRO MlllO 
SYMBOL DEFINITIONS 
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. SBTTL SYMBOL DEFINITIONS 



6ONADD! 
CONYEC: 
DLADR: 



dlnr: 

TKS: 
TKB: 
TPS! 

tpb: 

tkvtr: 

tklvl: 

TPYTR: 
TPLYL: 
FSTOL: 
CNTLSWt 

rtnno: 

NXTST: 

SCOPTR: 

PRGID: 

crbof: 

CTRA: 

WIDTH: 

LEVEL: 

rept: 

BRCTR: 
COUNTS: 

xcsr: 

timer: 

spcnt: 

CURTST: 
TEMPCH: 

parity: 

PCHAR: 

lfcnt: 

INCHK: 
TEMP: 

SR: 
cntr: 



JADOR OF CONSOLE RECSIYER STATUS REG 
JCONSOLE TERMINAL INTERRUPT VECTOR 
?ADDRESS OF FIRST DLllr DEFAULT TO DLll-A, 
;IF DLll-C,DfE/, THEN 

JSET TO 125610 FOR FIRST 16 (OF 31) OR 
?SET TO 176000 FOR LAST 16 (OF 31) 
;0R SET OTHER DESIRED START ADDRESS 
;» OF DLll'S TO BE INITIALLY ASSUMED 
JCONSOLE RECEIVER STATUS REG 
JCONSOLE RECEIVER BUFFER 
yCONSOLE TRANSMITTER STATUS REG 
JCONSOLE TRANSMITTER BUFFER 

;C.T. TRANSMITTER INTERRUPT VECTOR 

?C.T. TRANSMITTER PRIORITY LEVEL 

? ADDRESS OF FIRST ACTIVE DLll 

JCONSOLE TERMINAL CONTROL SWITCH 

JCONTAINS CURRENT TEST NUMBER 

JCONTAINS ADDRESS OF NEXT TEST 

JCONTAINS ADDRESS OF TEST SCOPE ENTRY 
JCONTAINS TEST PROGRAM INDICATORS 



& E022 



JCURRENT PAPER WIDTH, BINARY 
JLEVEL OF EXECUTION 
j| OF MULTIPLE DLllS 
jI/0 TEST ITERATION COUNT 
JTEMP STORAGE FOR TESTS E021 
JCOUNTER FOR ROUTINE **AREAD" 
JCOUNTER FOR ROUTINE "PRINTC" 
J ADDRESS OF MULTIPLE DLll STATUS 
Jl MSEC COUNTER FOR ROUTINE "DELAY" 
JCOUNTER FOR TEST ROUTINE "PT3" 
J ADDRESS OF CURRENT TEST 
JTEMP STOR POR ECHO TESTS 
JPARITY FLAG FOR RECEIVED CHAR 
JCHAR CODE WITH PARITY BIT 
JCOUNTER FOR TEST ROUTINE "PT4" 

fiiMpSRAS? wSpkInG^ItORAGE 
JSW REG ADDRESS 

JTIME COUNTER FOR LSI-11 TESTS 
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SYMBOL DEFINITIONS 

23900 



CHLT: 



SELHLT: 

Tl: 
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.SBTTL PROGRAM INITIALIZATION & CONTROL 



. ******** 

/COMMON HALT— WHEN IN SWITCH REGISTER CONTROL THE CPU 
} WILL BE AD?ANCED TO THIS COMMON HALT WHERE 

'*»*****& NEW TEST WILL BE EXPECTED TO HE STARTED 



TST 

SE? 

TST 

MOV 

MOV 

BR 

MOV 

MOV 

BR 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ir 



WAITF 
X 



LEVEL 

-(RO) 

#177777, ATOX 
»CHALT, WAITF 

STARTX 

STARTX 
#ATl,ATOX 
SCHALT, WAITF 

-p«ot;sp 




;TEST CURRENT 



LEVEL 



JRETURN FROM INTERRUPT 
?F0RCE END OF I/O TESTS 
JFORCE SR CONTROL 

JFORCE TERMINAL CONTROL 
?FaRCE ALL I/O TESTS 

;FgRCE TERMINAL CONTROL 
?FORCl END OF I/O TESTS 

;FORCE ALL I/O TESTS 
?FORCE SR CONTROL 
?SET STACK POINTER 
;SAVE CURRENT VECTOR 

?SET UP TIMEOUT VECTOR 

r.sinss? §c"c8ii 

^TO^SOFTWARE SWITCH REGISTER 



IRE STACK 

OPiRATOR TO USE SOFTWARE 



, _ TIM^_. . . _ 

;TRY TO REFERENCE .. 
JBBAHCH IF NO TIMED 

/TSLL LirtEjTvn i un iw UUD 

; SWITCH Weg at LOC 176 

FALLOW INPUT CHECKING 
;CLEAN UP 

JlNITIALIZE PROGRAM FLAGS 
^INITIALIZE TERMINAL CONTROL SWIT 
?INITIALIZE LEVEL 

ASOR POWER FAIL ROUTINE 
;SET UP CONSOLE TERMINAL ADDRESS 



CZLACEO L436 TERM (DLll S, KLll) MACRO MlllO 
PROGRAM INITIALIZATION & CONTROL 
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4700 
4800 



^800 



m mm 

156 020|27 000204 
000035 

014127 
000003 



III iim 

ill 

202 012700 

-06 012702 

n Mm 

" "0410 

ml 



000000 



000240 177754 



• ********** 



JREAD THE PAPER WIDTH, NUMBER OF. COLUMNS, 
?FROM SWITCH REGISTER POSITIONS 0-7. SAVE AN 



;COMVERT TO 3 ASCII CHARACTERS. 



jOR LTSg COLUMNS (DECIMAL) WILL . „_ .„ 

;THE SWITCH|S_MAY_BE CHANGED_0HCE THE PROGRAM 



A WIDTH GT132 

BE ABORTED TO 



JMESSAGE HAS STARTED TO PRINT. 

J ********** 



E OR THE DLll COUNT 



is: 

31! 

4S: 

5S: 



MOV 
BIC 
CMP 
BGT 
CMP 
BHI 
MOV 
MOV 
MOV 
MOV 

BTOASC 

BR 

BR 

MOV 

PRINTC 

TYPEM 

STARTM 

MOV 



Pl/#204 

#204, Rl 
Rl.wfDTH 
#HDRO,RO 
#3/R2 

IJ/PO 



#N0P,4S 



PUT (SR) INTO Rl 
SAVE ONLY BITS 0-7 
TEST NO. COLUMN GT132 
COLUMNS GT132fi DEFAULT TO 132 
CHECK IF NO, COLUMNS LT 30 



JNOT LT 30 NOR GT 132 
;COLUMNS LT 30 OR GT 132, DEFAULT 
;SAVE NO. COLUMNS IN WIDTH 
?ADDR TO STORE ASCII COLUMN VALUE 
JOO A 3 CHAR. CONVERSION 
JCONVERT NO. COLUMNS TO ASCII 

J TRANSMIT A 

J NULL CODE 

;TYPE PROGRAM TITLE FIRST TIME RUN 



CZLACEO LA36 TERM (DLll & KLll) MACRO MlllO 
PROGRAM INITIALIZATION & CONTROL 
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001320 
177334 
177332 
177374 




001404 
001406 



005067 177254 

005067 177266 

umi 

012767 005266 

hum 177264 



• ********** 



?THIS NEXT PART CHECKS THE PRESENCE OF DLll-A OR DLll-C 

JSTARTING AT 776500. A MESSAGE WILL BE PRINTED INDICATING THE NUMBER 

;PRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EACH OF 

?THE MULTIPLE DLllS IN THE SYSTEM IF SWITCH 13 IS DOWN (0). 

• ********** 



176536 6S: 



2S: 



END2: 
END4: 



MOV 

MOV 

MOV 

CLR 

TST 

MOV 

MOV 

BR 

TST 

ADO 

INC 

DEC 

BEQ 

BR 

DEC 

BEQ 

ADD 

P0PSP2 
MOV 
MOV 
MOV 

BTOASC 



#END2A,MACHER 

DLADR,RO 
DLNR^Rl 
DLCNT 
RO) 

D2#MACHER 
FSTDL 



DLCNTeBl 

#DLli§l/RO 

»2,R2 



>INITIALIZE TIME OUT TRAP 

?ADDRESS OF FIRST DLll TO RO 

;SET OL CHECK COUNT 

^INITIALIZE DLCNT 

?IS DL PRESENT? 

;YES|- RESET TIME OUT TRAP 

? STORE ADDRESS OF FIRST DLll 

?CONTINUE 

;IS DLll PRESENT 

^POINTER AND DLll ADDRESS 

^INCREMENT COUNT OF DLll'S 

?DECRBMENT DL CHECK COUNT, DONE? 

yBRANCH IF DONE 

yCHECK PRESENCE OF NEXT DLll 

joone dl check? 

;yes, exit 

j no. check next dl 

;continue 

?OLll NOT PRESENT 
?GET » DLll'S 

;ADR of ASCII CHAR STORAGE 
}fi OF ASCII CHARS 
JCONVERT NUMBER 
JTYPE MESSAGE 



*********** 



JEXECUTE THE STRING OF CONSOLE TERMINAL I/O TESTS 
;THEN EITHER HALT AT LOCATION SELHLT OR CONTINUE WITH 
yPRINTER TESTS AS A FUNCTION OF SR BIT B. 
^ ********** 



177777 
177234 



CLR 

CLR 

CMP 

BEQ 

MOV 

FORWD 

JMP 



RTNNO 
LEVEL 

ATOX, #177777 
SKIP 

#ATO/NXTST 
(acUPTST 



?SET ROUTINE NO = 
?SET LEVEL = 

JSEE IF I/O IS TO BE SKIPPED 

MDORESS OF FIRST I/O TEST 
?SET UP TEST PARAMETERS 
;G0 to I/O TEST ROUTINE 



♦ > 
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********** 



THIS PORTION IS THE COMMON RETURN 
FOR ALL THREE CLASSES OF TESTS. 

AN 



— IF AN ERROR OCCURRED DURING ... 
OPERATOR CAN CAUSE THAT TEST TO 



I/O TEST THE 
„ _ ^ BE LOOPED 

WITHOUT ANY FURTHER ERROR HALTS BY 

ERROR HALT TO OCCUR AGAIN IF IT STILL EXISTS. 

2— IF THE OPERATOR IS IN THE MAINTENANCE 

MODE (PIT 8 SET = 1 AT START UP TIME), THE 
SELECTED PROGRAM WILL LOOP CONTINUOUSLY 
IF SR BIT 11 IS SET=I. IF BIT 11 IS = 
THEN THE PROGRAM WILL BE ADVANCED TO 
THE NEXT TEST IN IT'S CLASS IF BIT 8=0. 
A" • ~ 



********** 



chainn: BIT 

BEQ 



as long as bit 11 and 
bit 8 are 0, the class of tests selected 
will be continuously sequenced through. 

. - cpu 

selhlt and wait for 

_ set in the 

switch register. 



IF BIT 11 IS 6 AND BIT 
WILL HALT AT LOCATION S 
NEXT TEST NUMBER TO BE 



177170 55: 



|||CTL 

BPL 
BIT 
BEQ 
CMP 
BEQ 
MOV 
RTI 
BIC 
TST 
BEQ 
BIT 
BEQ 
RTI 
DEC 
BEQ 
RTI 
BIT 
BEQ 
JMP 
P0PSP2 



177152 
177066 
177076 



6S: - 

chainy: nop 

TST 
BPL 
NOVB 
HALT 
IS! TST 
BEQ 



Jl^CNTLSW 

PRGID 
3S 

|scopsw,(asR 

|-1,SC0PTR 
filcOPTR/(JSP 
f|5TJ5,PRGID 



s 

I?" 

|PIT8,«SR 
WAITF 



?CHECK IF TERMINAL CONTROL 
JBRANCH IF NOT 

?BRANCH IF ERROR BIT NOT SET 
>ERROR, CHECK IF SCOPE OPTION ON 
;BRANCH IF NO SCOPING 

j yes. check if ok to scope this test 
jbranch if not ok 

jput addr of scope entry into stack 
;go to scope entry in test 

JCLEAR error IND. IN PRGID 

yCHECK level 

JBRANCH IF LEVEL=0 

?test loop switch on f=l) 

?BRANCH IF NO LOOP TEST 
JGO BACK TO TEST 
DECREMENT TEST ITERATION COUNT 
BRANCH IF COUNT=0 
NOT ZERO, REPEAT TEST 
TEST IF SEQUENCE TEST (BITS) 



} 
} 
} 

||RANCH_Tg;^pX/F|ESFiF'B 



?G0 WAIT FOR MORE INPUT 
?POP 2 OFF STACK 
JTHIS FORMERLY WAS RESET 
?CHSCK SR 

;BRANCH IF NO HALT WANTED 
JCURRENT TEST NUMBER TO RO 
JHALT (NOT FOR TEST SELECTION) 
;TEST THE CURRENT LEVEL 
?BRANCH IF 
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176706 

000200 176676 



MOV 

MOV 

FORWD 

CMP 

BNE 

MOV 

CMP 

BNE 

BIT 

BNE 

BIS 

MO? 

MOV 

MOV 

FORWD 

JMP 

INC 



t6|-MACHER 
ISPBOT/SP 



tATO/NXTST 

PCURTST 

#-l,NXTST 

NEXT 

|BIT7, PRGID 
|PTO,NXTST 

»6|-MACHER 
#SPBOT,SP 

PCURTST 
LEVEL 



;CLEAN UP 

JSET UP STACK POINTER 

;SET UP VALUES FOR NEXT TEST 

JEND OF I/O TESTS (=-1) 

;BRANCH IF NOT END 

;RESET NXTST TO FIRST I/O TEST 

;S|T^gP^|||UES FOR NEXT TEST 

?SND OF I/O TESTS (=-1) 
;8RANCH IF NOT 

iJgST^IF^WANf^TEST SELECTION RIGHT AWAY 
?BYPASS SCOPING 

?PRgD TESTING, GO TO PRINTER TESTS 
;CLEAN UP 

?SET UP STACK POINTER 

JSET UP NEXT TEST PARAMETERS 

?G0 TO ROUTINE 



'°SLEA"81i§Gmg||8^!fiTO BIT 
-SET SR BIT 11=1 TO LOOP ON S 
SR BIT 11=0 - 



S 0-5 OF THE SR 
ELECTED TEST 

TO LOOP THROUGH 



s ********** 



-SET SR BIT 11=0 AND BIT 8=0 
SEQUENCE OF SELECTED TESTS. 

lf?cg¥ig^^JJf%i5c"g " 



CHALT 

MOV 

MOV 

MOV 

BIC 

CMP 

BLOS 

CLR 

BP 

BIS 

CLC 

ROL 

MOV 

CMP 

BEQ 

FORWD 

JMP 



/OR TTYCTL IF START WAS AT 210 

?CLEAN UP 

;SET UP STACK POINTER 
?GET CURRENT SW REG 

;TEST IF PROG NO. IS I/O TEST 
!§?^N£H„i'' 19^95 kl *N ECHO OR PRINTER 

;l/0 TEST, CLEAR PRGID 

yBYPASS SCOPING 
jCLEAR C BIT 

?GE? PROGRAM ADDRESS OUT OF 



#6/MACHER 
JSPBDT/SP 

|f?^?8o,RO 
R0,.37 

PRGID 

»ilT7, PRGID 

RO „„„ 

RS£ll^lB9hK'^TST?PR0GRAM ADDRESS TABLE 
NXTST, #WAltF JTEST IF LEGAL TEST NO. 
Vkir? ?9BiNCH IF ILLEGAL 

?SET_UP TEST PARAMETERS 
gCURTST ;G0 TO TEST 



# 
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. ***♦*< 
?TTY1- 



THIS SECTION^IS USED WHEN THE DIAGNOSTIC IS BEING CONTROLLED BY 
I2?o£9S5°tS^TERMINAL. IT IS EFFECTIVE ONLY WHEN THE DIAGNOSTIC 
STARTING ADDRESS IS 210 AND SR BIT 8 WAS SET AT START TIME. 
THE RESPONSE^TO THE MESSAGE "SELECT TEST NO." MUST BE THE 2 
DIGIT OCTAL TEST NUMBER FOLLOWED BY t 

"L" TO LOOP ON TEST 

"S" TO LOOP ON SEQUENCE 

"." TO EXECUTE TEST ONCE 



176606 
176602 

umi 

004400 176602 
004000 176572 

000400 176560 
177452 

umi ""^^ 



176602 

176564 000040 
000036 



IS: 
2$: 
TTYIB 

1$: 



mm 



176462 



28100 
28200 
28300 



176516 000040 
000036 



P0PSP2 

TSTB 

BPL 

MOV 

BIC 

CMP 

BNE 

BIC 

BR 

BIT 

BEQ 

RTI 

BIT 

BEQ 

JMP 

MOV 

MOV 

DELAY 

TYPEM 

MESG3 

CLR 

READ 

CMP 

BEQ 

MOV 

DELAY 

PR NT 

MOVB 

JSR 

BR 

MOV 

iit 

ASL 

READ 

CMP 

BEQ 

MOV 

DELAY 

PRNT 

MOVB 

JSR 

BR 

ADD 



STKS 
IS 

3TKB,R5 

|NITRSH/ 

ffBIJ8,CNTLSW 

CHAINY 



HTLSW 
CNTLSW 



TEMPCH,»40 
#30., RO 



gTKB,(aTP 
PC/TESTC 

R0,R5 
R5 
R5 
R5 



EMPCH,«40 
O.^RO 



11 



fTKB,«TPB 
PC^TESTC 



;POP 2 FROM STACK 
;TEST IF ANY INPUT 
?BRANCH IF NOT 
?GET CHAR 

ycSlcK^lpRUBOUT 
JBRANCH IF NOT 
?CLEAR LOOP BITS 

;CHECK IF LOOP ON TEST 
?BRANCH IF NO LOOP ON TEST 
?LOOP ON TEST 
?TEST IF LOOP ON SEQUENCE 
;BRANCH IF NO LOOP ON SEQUENCE 
?CHAIN TO NEXT TEST 
?STpP INPUT CHECKING 
?DELAY FOR HALF DUPLEX 



JTYPE MESSAGE 

? ALLOW INPUT CHECKING AGAIN 

yWAIT FOR INPUT 

?TEST IF CHAR IS A SPACE 

?BRANCH IF YES 

;DELAY FOR HALF DUPLEX 

?READY? 

char is ok 

;ho, error 

JOK, PUT CHAR INTO R5 
?SH!FT INTO POSITION 5-3 



?WAIT FOR NEXT CHAR 
?CHECK IF A SPACE 
;BRANCH if SPACE 
?DELAY FOR HALF DUPLEX 

? READY? 
JECHO CHAR 

yCHECK IF CHAR IS OK 

JERROR IN CHAR 

;0K,R5 NOW = OCTAL TEST NO. 
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3221 

32300 

32400 

32500 

32600 



176274 4S: 
175436 5S: 



176232 
176226 



176210 
001700 



176230 
000077 



8S: 



IIP 

BEQ 

MOV 

DELAY 

PRNT 

MOVB 

MOV 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BNE 

MOV 

BP 

MOV 

MOV 

MOV 

CMP 

BHIS 

CMP 

BHIS 

CMP 

BLD 

MOV 

BR 

JSR 

BIS 

CLC 

ROL 

MOV 

CMP 

BEQ 

FORWD 

JMP 

PRNT 

MOVB 

BR 



TEMPCH,#40 

»TKB/aTPB 

tImPCH,»154 

5S 

TEMPCH,#123 

tImpCH,«163 
4S 

TEMPCH,#56 

II^CNTLSW 

#401,CNTLSH 
",MACHER 



85 



R|,«0 

R5,#20 

If ,CNTLSW 

P?,CONIT 
#B1T7,PRGID 

R5 

PRGTAB(R5),NXTST 
NXTST^IwAItF 

8S 



|77,«TPB 
TTYlB 



;WAIT FOR TERMINATION CHARACTER 
KHECK IF SPACE 
?BRANCH IF SPACE 
JDELAY FOR HALF DUPLEX 

?READY? 

?ECHO CHAR 

?SET BITS 11 ^ 

;N0, IS IT AN "L" ? 

JBRANCH IF YES 

?CRECK LOWER CASE 

;N0, IS IT AN "S" 
JBRANCH IF YES 
JCHECK LOWER CASE 

JNO, IS IT A ? 
JNO, ERROR 

JYES SET ONLY BIT IN CONTROL WD 

?SET BITS 8 & 
JCLEAN UP 
JINIT SP 

;IS THIS AN I/O TEST 
JBRANCH IF YES 
JIS THIS AN OPTION TEST? 
JSKIP IF YES 
JIS THIS AN ECHO TEST 
JBRANCH IF NOT 

JFORCE ECHO TEST TO A SINGLE RUN 
JLEAVE THIS TERMINAL AS CONSOLE 
JRESET CONSOLE TERMINAL ADDRESS 
JBYPASS SCOPING 
JCLEAR C BIT 

ADDR OF TEST TO NXTST 
JCHECK IF TEST EXISTS 
JBRANCH IF NOT 
JSET UP TEST PARAMETERS 
JGO TO TEST 

JCHECK IF PRINTER IS READY 
J SEND A "?" 
JTRY AGAIN 
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WAITF 
WAITF 



WA 
WA 

WA 
lilA 
WA 



1$: 



177001 



INT: MOV 
SOB 
MOV 
CMPB 
BLOS 
HALT 
BR 
ROL 
BIC 
ADD 
MOV 
CLR 
MOV 
RTI 
JMP 

tab: J]5g 

EHLT 
STLSRV 



CHLT 

TVPM 

DLY 

TTYl 

SCRLF 

ISCRLF 

SLF 

|PRTC 

ipRHDR 

SPRNT 

SREAD 

$ ARE AD 

SCR 

SBTASC 
IFORKD 
SREADC 
SPARET 
SPARE! 
SPARET 
SPARET 
SPARET 
SPARET 



ll77001,flSP 
#EMTTAB,|SP 
f SPj,(ISP 



SP) 



SPARE 
SPARE 
SPARE 
SPARE 
SPARE 
SPARE 
SPARE 



ITIME FOR TRAPS THROUGH 



^„ PC TO GET A WORK COPY, 

TO POINT TO CALLING TRAP INSTR. 



(Q) 



;PUSH STACKED 
JSUB 2 TO POIN_ 

?PLACE TRAP INSTR INTO THIS STACK WORK AREA. 
7EXAHINE ITS RIGHT SIDE. (Q) 

;BRANCH IF WITHIN RANGE OF ESTABLISHED TABLE. 
?ELSE HALT. 

?MULT INSTR BY 2 TO GET WORD DISPLACEMENT. 
?STRIP OFF OP CODS AND LS BIT. 
JADD IN STARTING ADDRESS OF TABLE. 
JFROM TABLE GET OUT DESIRED POINTER. 
?PUSH A ZERO PSW. 

7PUSH A PC = TO las OF THIS ROUTINE, 

IdO RTI (POP-POP) to ESTABLISH THE JeRO PSW. 

;JMP TO ROUTINE LEAVING STACK AS FOUND. 

JUNCONDITIONAL HALT 

^KEYBOARD VECTOR/PRIORITY SETUP 

yPRINTER VECTOR/PRIORITY SETUP 

;COMMON TEST EXIT 

?SR BIT 15 HALT 

JMESSAGE OUTPUT ROUTINE, MULTI DEVICES 

;DELAY ROUTINE 

;CONSOLE TERMINAL CONTROL 

KARRIAGE RETURN-LINE FEED TO ALL DLll'S 

?CARRIAGE RETURN-LINE FEED TO CONSOLE 

JLINE FEED ONLY (TO ALL) 

;PRINT CHAR 

?PRINT TEST HEADER 

;PRINTER READY 

JREAD CHAR 

?I/0 TEST READ ROUTINE 
?CARRIAGE RETURN ONLY (TO ALL) 
?BINARY TO ASCII CONVERSION 

;forward routine r between tests ) 
;read console kybd only 

JSPARE EMT 
JSPARE EMT 
JSPARE EMT 
JSPARE EMT 
JSPARE EMT 
JSPARE EMT 
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Hi 

46000 

m 

46400 
46500 



3?k 



im\ mil 

003074 000776 




mm 

"3104 

Ml 

03124 

'M 

3132 
.3134 
03140 



mm 

062766 

mm 

000002 

hum 
I 

000765 



000002 
000002 



000002 



SEQ 0063 



SPARET 
SPARET 
HALT 

BR SPARET 



JSPARE EMT 
JSPARE EMT 

JHALT IF TRAP TO UNDEFINED 
JEMT IS ATTEMPTED. 



. SBTTL COMMON ROUTINES USED BY LA36 TESTS 



THIS SECTION CONTAINS MOST ROUTINES CALLED BY 

THE VARIOUS TESTS EITHER BY TRAPPING THROUGH LOCATION 

30 OR BY SUBROUTINE CALLS (JSR PC,***) 



A COMMON ROUTINE USED TO TYPE MESSAGES ON THE 
CONSOLE TERMINAL ONLY. THE NULL CHARACTER TERMINATES 
THE MESSAGE. CALLED THROUGH AN EMT TRAP. 



JADDRESS OF MESSAGE 



********** 



,*** 
TYP: 



25 : 
35: 



MOV 

MOV 

ADD 

MOV 

MOVB 

BMI 

BNE 

MOV 

RTI 

SCRLF 

BR 

PRNT 
MOVB 
BR 

PRNT 
MOVB 
PRNT 




JSAVE RO 

JGET POINTER TO ADDR. 



OF MESG- 



IS 



R0,9TPB 
1$ 



#l5reTPB 
»12,§iTPB 



J ADDR. OF MESG TO Rl 
JGET CHAR 

JBRANCH IF WANT AUTO CR-LF 

JPRINT CHAR IF NOT MULL 

JRESTORE RO 

JBXIT IF NULL CHAR 

JYES, SEND CR-LF 

JGET NEXT CHAR 

JPRINTER READY? 

JLOAD PRINTER BUFFER WITH CHAR 
JGO GET NEXT CHAR 

JPRINTER READY? 
JSEND CR 
JPRINTER READY? 

TO CALLER 
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nil 

556 



012700 000015 

'km 



12700 000000 

175362 

177770 
062766 000060 

liHl 175336 

42700 177770 

62700 000060 
04015 



;XXXXXXXXXX 

?TYPM MULTI TYPE-A COMMON ROUTINE TO OUTPUT 

} A MESSAGE ON ALL DLllS IF THE MULTI TEST 

? SWITCH (BIT 13) IS RESET. THIS ROUTINE IS USE 

} THE PRINTER TESTS TO TYPE HEADINGS. IF A UNI 

J IS NOT READY, THE CHARACTER HILL NOT RE TYPED 

; 



JXXXXXXXXXX 


typm: 


MOV 




ADD 




MOV 


is: 


MOVB 




BMI 




BNE 


2%: 


RTI 


CRLF 




BR 


3$: 


printc 




BR 


SCRLFS 


CR 


SLF: 


MOV 




PRINTC 




RTI 


SCR: 


MOV 




SSPTC 




RTI 



,9BP 



IS 
IS 

#12, RO 
#15, RO 



;R0UT1NE TO PRINT TEST HEADER 

SPRHDR: Mgy_._ »o,ro 



MOV 

PRINTC 
TYPEM 
HDRMSG 
MOV 
ASR 
ASR 
ASR 
BTC 
ADD 

PRINTC 
MOV 
BIC 
ADD 

PRINTC 
RTI 



RTNNO,R0 
RO 

'4 

#177770, RO 
#60, RO 

RTNNO,R0 
#177770, RO 
#60, RO 



JGET POINTER TO ADDR OF MESG 

JADDR OF MESG TO Rl 
7GET CHAR 

JBRANCH IF WANT AUTO CR-LF 
JCDNTINUE IF NOT NULL 
; RETURN 

JVES, SEND CR-LF 
;NEXT CHAR 
?PRINT CHAR 
;G0 GET NEXT CHAR. 

?SEND CR 
?SET LF CHAR 
J SEND IT 

JRETURN TO CALLER 
>SET CR CHAR 



;TRANSMIT 

;NUL CODE. 
?PRINT MESSAGE 

;GET TEST NUMBER 
?GET FIRST DIGIT 

;MASK FIRST DIGIT 
;MAKE ASCII 

iGiPlEil'^SuMBER AGAIN 
;MASK LAST DIGIT 
JMAKE ASCII 
?PRINT DIGIT 

fiElNK LINE 
JRETURN 
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56806 
56900 
57000 



5913 
5920 



mil 

005767 



mi 

03346 
03350 



003364 
""370 



mt 



65276 
011601 
005741 



1^ 



040000 
175310 



100000 175276 



017667 
062716 
016701 1 

mm I 

000002 



0000 



• *********** 



:RRA— COMMON ERROR RETURN FROM I/O TESTS. HALTS 
WITH ADDRESS OF ERROR IN RO. TO CONTINUE 
ON SAME TEST PUT NOT HALTING ON ERROR, 
SET THE SCOPE BIT (14) = 1 AND PRESS CONTINUE 



********** 



175366 ERR: 



is: 
ehlt: 



BIT 
BBQ 
TST 
BPL 
RTI 
BIS 
MOV 
TST 
HALT 
RTI 



|scopsw,@sr 
pIgid 

IS 

#BIT15,PRGID 
#SP,RO 

-(r6) 



?check scope switch 

;branch if no scope 

? scoping wanted, first error? 

^branch and halt on first error 

jscope exit 

?set error indicator 

jaddress of call into ro 

jreturn to test following call 



ERRHLT 
j[ ********** 

STLSPV THIS ROUTINE SETS UP KEYBOARD INTERRUPT 

VECTOR AND PRIOITY. CALLING SEQUENCE 



;LOCATION OF NEW INTERRUPT VECTOR 



********** 

STLSRV: MOV 
ADD 
MOV 

STPRA: MOV 

MOV 
RTI 



|JSP|^STPRA*2 



?SET RETURN ADR AND VECTOR 



003424 



m 

oIJooI 



OQOOOO 
175174 



? STLSPV— THIS ROUTINE SETS UP PRINTER INTERRUPT 

7 VECTOR AND PRIORITY CALLING SEQUENCE 

; STPCHV 

LOCATION OF NEW INTERRUPT VECTOR 



? AT35E 
I ********** 

STLSPV 



STPPA: 



MOV 
ADD 
MOV 
MOV 
MOV 
RTI 



JJSP^^STPPA*2 

TP^TR,R1 
|0,(R1)* 
tPLVL,(Rl)* 



>SET RETURN ADR AMD VECTOR 



JRETURN TO CALLER 
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Iil8 

6160 
6170 

m 

621* 

til 

6260 
6270 



63l6a 




mn 

05301 
001372 



J ********** 

JDELAY— A COMMON ROUTINE TO DELAY PROCESSING 

> A GIVEN NUMBER OF MSEC. 

; CALLING SEQUENCE; 

; MOV #5,R0 ;r6 CONTAINS THE NUMBER OF MSEC DELAY DESIRED 

I DELAY 

; THE DELAY IS EFFECTED BY THE EXECUTION OF THE LOOP; 
; IS! DEC Rl 

I BNE IS 

} SINCE THE EXECUTION TIMES OF THE PDPll LINE DOES VARY FROM 

; MACHINE TO MACHINE, THE VALUE AT SYMBOLIC LOCATION 

? "TIMER" MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOMN BELOW 

? BEFORE STARTING THE DIAGNOSTIC. "TIMERS IS INITIALIZED 

; FOR AN 11/05, 11/10(=251). 



Iloop: 



05&10 35&40 15&20 LSI603 



DEC Rl 
BNE LOOP 
? TIME= 
; SET TIMER 

yxxxxxxxxxx 

2$S DEC 
BNE 
DEC 
BNE 
MOV 
RTI 



3.4 ,99 

2.5 1.76 
5.9USEC 2.75 

251 554 



f iAe^^rI 

Rl 



(SP)*,R1 



2.3 
2.6 
4.9 

314 



7.7 
202 



BIPOLAR 

-30 
.60 
.||USEC 



11/45 



& 11/70 

HOS 



CORE 



.90 
1.13 



.51 
.98 



ySAVE Rl 

;MOV 1 MSEC LOOP CNT TO Rl 
? DECREMENT COUNT 
;BRANCH IF NOT ZERO 
;DEC NO. OF MSEC DELAY 
?DELAY AGAIN IF NOT ZERO 
;ALL DONE RESTORE Rl 
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64900 ;**♦*»♦**** 

65000 } 

65100 ;PFAIL— POWER FAIL ROUTINE 

65200 ; SAVE ALL REGISTERS AND SET RESTART ADDRESS 

65300 ; INTO LOCATION 24 

65400 ; 

65500 ;RESTART— POWER FAIL RECOVERY 



100 I RESTORE hLl REGISTERS kHD GO TO START 
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1 ********** 


PFAIL: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




HALT 


SAVR6: 


.WORD 


RESTRT: 


pPEM 

mSv 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




JMP 



R4'- 



fSP) 

'ISP'i 

ssp:i 
;sp I 

= ' SP » 
§P;SAVR6 
#RfeSTRT,24 



SAVR6,SP 

(SPU,R4 
(SpS*^R3 
(SP)+,R2 
(SPU^Rl 
(SP)+,RO 
START 



.ASCIZ <ACRLF>/POHER/<ACRLF> 



?SAVE STACK POSITION 
?STORE RESTART ADDRESS 



?RESTORE STACfC POINTER 
?RESTORE PFAIL ADDRESS 



2800 
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OOOOl 



1- ROUTINE NUMBER 

2- ADDRESS OF NEXT TEST 



8^ 



f FORWARD— THIS ROUTINE TRANSFERS THE 2 OR 4 ARGUMENTS 
I FROM THE TEST ROUTINE. THEY ARE? 

/ 
/ 
} 
} 
I 

SFORWD: MOV 
MOV 
MOV 
TSTB 
BMI 
MOV 
MOV 

FORHDA: MOV 
RTI 

FORHDB: MOV 
MOV 
BR 



NXTST/R5 
(R5* — 
(R5 

pr- 



- WDB 
(R|)*,IC' 

Rircufifi' 



PRG__ 
FORWDB 



RTNNO 
NXTST 



ICTR 

"^OPTR 



#-l,SCOPTR 



;ADDR OF NEXT TEST TO R5 
;GET NUMBER OF NEXT TEST 

mien? ^ymr" 

?skip the fetch of iter cnt and scope 
;get iteration count 
;get scope Intry point 
jentry point to test in cur tst 

?EXIT 

?FORCE NO SCOPE 
JFORCE INTERATION COUNT OF I 
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mm imi 



174740 
174726 



000001 
174764 



174666 
174672 



174662 
174654 



174650 
174642 
174622 

ioooJJ 



000044 



174634 
174626 



-A ROUTINE WHICH# THROUGH THE FACILITY OF 
THE MAINTENANCE BIT, OUTPUTS TO THE 
PRINTER BUFFER AND READS THE KEYBOARD 
STATUS DONE. IF THE DONE IS NOT SET 
WITHIN 600 MSEC, THE CPU WILL HALT WITH 
THE LOCATION OF THE ERROR IN RO- PRESS 
CONTINUE TO CONTINUE WITH TESTS. 



$AREAD: MOV 
BIS 
CLR 

1$: TSTB 

DELAY 
DEC 
BNE 
EHALT 



2$: 



RTI 



»600|.BRCTR 
l4,ftfpS 

Itpb 
Itks 

#f#RO 

BRCTR 
1$ 

$AREAD 



J SET UP 600 MSEC DELAY 
?SET MAINTENANCE BIT 
?LOAD PRINTER BUFFER 
?CHECfC DONE BIT 

j88^''¥8 II """^ 

;OELAY 1 MSEC, 
?600 MSEC OVER 
JBRANCH IF NO 

;TRY AGAIN 
;RETURN TO TEST 



JCONIT— THIS ROUTINE SETS UP THE DEVICE ADDRESSES 
' SHB. IHTpRRUP^ VECTORS FOR THE CONSOLE 

; TERMINAL. 



^ « « « « « ft * * « « 


CONIT: 


MOV 


conset: 


MOV 




TST 




MOV 




TST 




MOV 




MOV 




TST 




MOV 




MOV 




MOV 




MOV 




ADD 




RTS 


TPSS: 


.WORD 


TPBS: 


.WORD 



conadd#ro 

R0,TKS 

rLIkb 

(RO)* 
TPS,TPSS 
RO*TPS 
(R0) + 
TPBtTPBS 
ROf TPB 

convectkvtr 
c0nvec,tpvtr 

|4,TPVTR 






; CONSOLE KEYBOARD STATUS ADDR TO RO 

JKBYBOARD STATUS ADDRESS (777560) TO TKS 

^INCREMENT RO BY TWO 

^KEYBOARD DATA ADDR (777562) TO TKB 

?INCREMBNT RO BY TWO 

?SAVE TPS OF LAST TERMINAL 

;PRINTER STATUS ADDR(777564) TO TPS 

; INCREMENT RO BY TWO 

?SAVE TPB OF LAST TERMINAL 

yPRINTER DATA ADDR (777565) TO TPB 

JKEYBOARD INTERRUPT VECTOR (60) TO TKVTR 

;PRINTER INTERRUPT VECTOR (64) TO TPVTR 

?LAST TERM STATUS REG ADR 
JLAST TERM BUFFER REG ADR 
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SEQ 0072 



000012 
023420 



000016 



000144 



?BINARY TO ASCII CONVERSION (1 TO 5 ASCII CHARACTERS) 
;CALLING SEQUENCE 

; MOV ADDRESS OF LOC. TO STORE FIRST ASCII CHAR 

• MOV " — " ~* 

? MOV 
J BTOASC 



BINARY NUMBER to BE CONVErIeD " INTO" Rl 
NUMBER TO BE CONVERTED AS A POWER OF TEN INTO 



INTO RO 

R2 



IS: 



; ********** 



MOV 
ASL 
ADD 

MOV 
CLR 
SUB 
BCS 

w 

ADD 

ADD 

MQVB 

DEC 

BNE 



CNVCTR: 

DIGIT: 

TENPWR: 

aotenp: 



.WORD 



RJ, CNVCTR 

#ADTENP,R2 

-(R2)rTENPWR 

DIGIT 

TENPWR,R1 

3| 

P|GIT 
ENPWR.Rl 



?SJV| TEN POKER 

;CALCULATE ADDRESS OF 
;STARTING TEN POWER 
JPOWER OF TEN VALUE TO TEN PHR 
?CLfAR CURRENT DIGIT 

^SUBTRACT TEN POWER FROM BINARY VALUE 
^BRANCH IF END 



USER BUFFER 
CALLED FOR 



?RESTORE SUBTRACTED VALUE 
ICONVERT (DIGIT) TO ASCII 
?PUT ASCII CHAR INTO 
^FINISHED ALL CHARS. 
JBRANCH IF NOT FINISHED 

I^ON^eIIIoN CHARACTER COUNT 
y ;COHVERTED CHARACTER 

?CURR^ 

1., 10. ,100, ,1000. ,100 



IS 



NT TEN POWER 
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mm 

000002 



;xxxxxxxxxx 

JREAD— A„CgMMpN_RgUTINE WH|CH_CgEC?f 

?xxxxxxxxxx 



DONE FLAG S"SETS A"f LAG"]f NOiIaI ING^CHAR^PARITY 



2S: 



JSR 

TST 

BEQ 

MOV 

MOV 

TSTB 

BPL 

MOV 

JSR 

BR 

DEC 

BEQ 

ADD 

BR 

TSTB 

BPL 

TSTR 

BPL 

HOVB 

MOVB 

BIC 

MOVB 

BIC 

CMP 

BEQ 

MOV 

BIC 

DEC 

BEQ 

COMB 

BR 

RTI 



PC,CONIT 

DLCNT 

SREADC 

DLCNT, C0UNT3 

FSTDL,XCSR 

|XCSR 

xlsR,RO 

PC«CONSEI 

REXDl 

C0UNf3 

4S 

||0,XCSR 

»TKS 
SREADC 
|TKB,TEMPCH 
TEMPCH-PCHAR 
#177400. PCHAR 
TEMPCH,PARITY*1 
1177600, TEMPCH 
fEMPCH, #4 
SREAD 



?RESET CONSOLE ADR AMD VECTORS 
?CHECK IF MULTI DLll'S AVAILABLE 
JNOHE, WAIT FOR CONSOLE INPUT 
?SET DLll COUNT 

?AODRESS OF FIRST DLll INTO XCSR 
>TEST IF ANY INPUT 



CONSOLE 



?READ CHAR AND RETURN 

;0ECREMENT OLll COUNT 

?TEST CONSOLE WHEN DONE DLll'S 

^NEXT DLll ADDRESS 

;CONTINU| 

;CHECK CONSOLE 

;WATT, NO INPUT 

?CHECP: KEYBOARD DONE FLAG 

JBRANCH IF NOT SET 

;SAVE CHARACTER 

ySAVE CODE WITH PARITY BIT 

JMASK UNWANTED BITS 

>SAVE CHAR WITH PARITY BIT 

;MAKE it 7 BIT ASCII 

^DISREGARD EOT 

;SET SHIFT COUNT 
;CLEAR PARITY FLAG 
JOECREMENT SHIFT COUNT 
?EXIT IF DONE 

IcIStInuS^IF bit WAS ZERO 

?CHANG| PARITY FLAG IF BIT HAS ONE 

?SET, RET. TO CALLER 



XXXXXXXXXX 

PRINT— A COMMON ROUTINE TO CHECK THE PRINTER READY FLAG 
XXXXXXXXXX 



TSTB 

BPL 

RTI 



fTPS 
SPRNT 



?CHECIf PRINTER READY FLAG 
?BRANCH IF NOT SET 
?SET, RETURN 
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CALL: 




-SENDS A CHARACTER AT A TIME FIRST TO THE 
CONSOLE DLll THEN TO ALL MULTIPLE DLllS IF 
SR BIT 13 IS - 0. IF THE REFERENCED PRINTER 
READY BIT IS NOT SET^ THE CHARACTER MILL NOT BE 
SENT TO THAT PRINTER. ENTER WITH CHARACTER IN RO. 



PRINTC 



CONADDjrTEMP 
»4i.TEMP 

if /TEMP 

|MtI3,@SR 

DLCNT 

lis 

DLCNT, C0UNT3 
FSTDL/XCSR 



RTNNO,#20 
ItYCTL/WAITF 




£,A 

XCSR-rTEMPCH 
1177600, TEMPC 
fEMPCH/IS 

rInN0,#24 
6$ 

lESpCHrn77 

RTNN0,#17 

TEMPCH/RS 

RtInO,#21 
8$ 

TEMPCRrREPT 
125 

R|NM0,»22 

TpPCHrREPT 

RTlN0r#21 
10$ 



?SET CONSOLE ADR 



?»AIT FOR CONSOLE READY 
?SET ADR 
?LOAD CON 
;CHECK SW 
;SEND ALL TERMS IF SW13 DOWN 
ICHECK IF MULTIPLE DLll'S 
;CHECK FOR INPUT IF THERE 

JPUT NO. DLll'S INTO COUNTS 
?ADDR OF FIRST DL INTO XCSR 
?CHECK FOR INPUT? 

;PRINTING TEST? 

?BRANCH IF NOT 
yKEYBOARD CONTROL? 
?SKIP INPUT CHECK IF NOT 
?TEST IF ANY INPUT 
JCONTINUE IP NO INPUT 
;SET BUFFER ADDRESS 



JCHECK IF CONTROL-C 

JCONTINUE IF NOT 

yCHECK IF TEST 24 

;CONTINUE IF NOT CONTROL-C 



CHECK IF RUBOUT 

YES, CHECK TEST NUMBER 

TEST 17? 

BRANCH IF NOT 

SAfE CHARACTER 

CONTINUE 

TEST 21? 

BRANCH IF NOT 

SAfE CHARACTER 

CONTINUE 

TEST 22? 

CONTINUE IF NOT 

SAVE CHARACTER 

CONTINUE 

CHECK IF TEST 21 
NO, CHECK IF TEST 22 
ASJUST STACK 
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005340 

173740 000024 11$: 



73554 
173502 
000036 



173744 
173736 
173706 



173650 
173636 



000020 
174620 



12$: 



17S: 
19$: 



19$: 



20$: 



MOV 

DELAY 

TYPBM 

ECOEND 

CHAIN 

JMP 

CMP 

BNE 

P0PSP2 

MOV 

DELAY 

TYPEM 

ECOEND 

CHAIN 

JMP 

CMP 

BNE 

P0PSP2 
JMP 
MOV 
DELAY 

W 

ADD 

ADD 

MOV 

ADD 

CMP 

BEQ 

TSTB 

BPL 

ADD 

MOV 

DEC 

BEQ 

ADD 

JMP 

ADD 

BR 

TST 

BNE 

CMP 

BGE 

CMP 

BNE 

TSTB 

BPL 

MOV 

ADD 

MOVB 

BIC 

CMP 

BNE 

CMP 

BNE 

MOV 

DELAY 



#30. /RO 



E021A 
|JNN0,#22 

#30.,R0 



E022A 
RT|N0/#24 

TERM 
#30. /RO 



|2/XCSR 
cSSaDD/TE MP 



|4,TEMp 
tEHP/XCSR 
17$ 
-|CSB 



.2/ XCSR 
R0,9XCSR 
COUNTS 
1B$ 

|2/XCSR 

||,XCSR 

INCHK 

RtInO/#20 
19$ 

#TTYCTL/WAITF 
26S 

|CONADD 

fTEMP,TEMPCH 
|177600,TEMPCH 
TEMPCH/13 



21$ 

|||N0/#24 
#30. /RO 



?DELAY FOR HALF DUPLEX 
?YES, TEST 21 

;PRINT TERMINATION MESSAGE 
;CHAIN TO NEXT TEST 

fREPEAT TEST IF LOOP ON TEST SW SET 
;CHECK IF TEST 72 

;m0, check if test 24 

jad5ust stack 

;delay for half duplex 

;yss/ print termination message 

;chain to next test 

?repeat test if loop on test sv set 

JTEST 24? 

JWAIT FOR NEXT TEST IF NOT TEST 24 
;RESET STACK 
?TERMINAtE TEST 

;delay for half duplex 

?set status address in xcsr 
?check if console terminal 

;IS THIS DL 



TEST PRINTER READY 

WAIT FOR READY 

SET XCSR TO PRINTER BUFFER 

ALL DONE/EXIT 

SET XCSR TO NEXT DLll PRINTER STATUS 
GO TEST NEXT DLll READY FLAG 
SET XCSR TO PRINTER BUFFER 
DO NOT LOAD BUFFER 
WANT INPUT CHECK? 
NO, BRANCH 
PRINTING TEST? 
BRANCH IF NOT 
KEYBOARD CONTROL? 



SKIS INPOT CHECK IF NOT 
TEST IF ANY INPUT 
BRANCH IF NONE 
SET ADR 



'l^?LyNWANTED BITS 
'SHf.5J?.tP = CONTROL-C? 
JCONTINUE IF NOT 

>J§NTINUE IF NOT 
JOELAY FOR HALF DUPLEX 



CtLkCEO L&36 TERM ^ 

COMMON ROUTINES USgO B¥ LA36 TESTS 




& KLll) MACRO MlllO 
- - - TES-" 



25-AUG-7P 10:13 PAGE 24-2 



OIL . 
000002 



005650 

173516 000177 21$: 



000001 173436 22 S: 
000036 



173416 000017 

mm 000021 24$: 

173434 173414 
173364 000022 25$: 

173416 173376 

26$: 



JMP 

CMP 

BNE 

BR 

MOV 

JMP 

MOV 

MOV 

DELAY 

MOV 

CMP 

BNE 

m 

BNE 
MOV 
CMP 
BNE 
MOV 
RTI 



E024B 

TEHPCH,#177 
|I^CNTLSW 

lie:!!?' 

|ips;S!7 

lirNSJiSf 



TEMPCH#REPT 
RTNNOrl22 

TEMPCH/REPT 



JSEMD CR-LF 
?RESET STACK 
;RETURN TO TEST 
>CHECK IF RUBOOT 
JBRANCH IP NO 

ICLEAR LOOP AND SEQOENCE PITS 
JRO WAIT FOR NEXT TEST 
;SAVE RO 

;DELAY FOR HALF DUPLEX 

; RESTORE RO 
?CHECK IF TEST 17 
;BRANCH IF NOT TEST 17 

;BRANCH IF NOT TEST 21 
;STQRE INPUTTED CHARACTER 

> STORE INPUTTED CHARACTER 
JRETURN TO TEST 
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32800 



SEO 0077 
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005266 000040 

"m mm 

5274 005304 

Mill 5^31*2 

005312 000774 

mm mm 



005326 005336 

"ml mm 

5342 104005 

mt inm 

5350 000774 



005346 
173252 



«SBTTL I/O LOGIC TESTS 



;QNLY THE CONSOLE TERMINAL IS TESTED. 

?UPON COMPLETION^ THE CPU MILL EITHER HILT IF SR 

SBIT8 IS - 1 &N0 AWAIT FUTHER INSTRUCTIONS OR CONTINUE 

JAND EXECUTE THE PRINTER TESTS CONTINOUSLY 

;IF AN I/O TEST FAILS, THE CPU WILL HALT AT ERRHLT 

;WITH THE ADDRESS OF THE ERROR IN RO (LOG 777700). PRESSING 

;THE CONTINUE SWITCH WILL CAUSE THE I/O TEST TO 

; CONTINUE WITH THE NEXT TEST. HOWEVER IF SWITCH 14 

; WERE SET, OR IS SET BEFORE THE CONTINUE SWITCH IS 

JPRESSED, THE FAILED TEST WILL LOOP OH ITSELF 

^WITHOUT FURTHER HALTS 

JATO— TEST 840 — TESTS THE ABILITY TO REFERENCE THE 
} RECEIVER STATUS WORD (TKS) WITHOUT TRAPPING. 



ATO; 
ATOX: 



3SJ 



40 

1$ 

MOV 
TST 
CHAIN 

BR 

ERROR 
BR 



JTEST NUMBER 
JMEXT TEST 
JITERATION COUNT 
; SCOPE ENTRY 

;SET UP MACHINE ERROR TRAP 
;REFERENCE RECEIVER STATUS WORD 
;CHAIN TO NEXT TEST 
;RRPEAT TEST 

TERROR TRAPPED WHEN REFERENCING 
? RECEIVER STATUS WORD (TKS) 



JATI— -TEST #41 — TESTS THE ABILITY TO REFERENCE THE 
; RECEIVER BUFFER (TK8) WITHOUT TRAPPING. 

. ********** 



m 

35: 



M§V 
TST 
CHAIN 

BR 

ERROR 

BR 



mi 



2$ 



?TEST NUMBER 
?HEXT TEST 
yITERATION COUNT 
> SCOPE ENTRY 

;SET UP MACHINE ERROR TRAP 
^REFERENCE RECEIVER BUFFER 
;CHAIN TO NEXT TEST 
;REPEAT TEST 

;TRAPPED WHEN REFERENCING 
^RECEIVER BUFFER (TKB) 
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;AT2 — TEST #42 — TESTS THE ABILITY TO REFERENCE THE 
J*******|g^"SMITTER STATUS WORD (TPS) WITHOUT TRAPPING. 

;test number 
;next test 



; JTERATIQN^COUNT 



OPE EHTRV 

?05400 172414 MOV |3$,MACHER jSET UP MACHINE ERROR TRAP 

173222 15; TST §TPS ;REFERENCE^ TRANSMITTER STATUS 

2SS CHAIN ?CHAIN TO NEXT TEST 

IS ?REPEAT TEST 

;TRAPPED WHEN REFERENCING 
2$ ; TRANSMITTER STATUS WORD 

AT3-« IifLSflZ^I^S2S^IP,^B^l-ITY TO REFERENCE THE 
^^^^^^^TRAMSMITTER BUFFER (TPB) WITHOUT TRAPPING. 

8Si2ll ^T3: 43 iTEST NUMBER 

M}% fX4 JNEXT TEST 

005422 }2- ; ITERATION COUNT 

im nMll mm mm 172362 _ mov iss^macher 111° Ip^eIror 

^REFERENCE TRANSMITTER BUFFER 



m \\m \m ^ m Wu 



7700 005430 000774 BR 



CHAIN ;CHAIN TO NEXT TEST 



BR 2$ ; TRANSMITTER BUFFER. 
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mm 



lSf4»„ TEST i44-»TESfS THE A8ILir¥ TO SET AND CLEAR THE 
l^*^^^^^SlPJ^ER IMTERRlfPT EMftBLE BIT« 

JTEST NUMBER 

JNEXT TEST 

ISET PRIORITY 7 

?SET INTERRUPT ENIBLE BIT 
?CHECK IP BIT IS SET 

tCHkin TO NEXT TEST 
?CLEAR INTERRUPT ENABLE BI 
;CHECK IF BIT IS CLEARED 
JBRANCH IF CLEARED 
?NOT CLEARED, ERROR 
?CHAIN TO NEXT TEST 
|D0 TEST AGAIN 



IT4S 


44 




ATS 

il- 




MOV 
M0¥ 


IS; . 


m 




BIT 






2$s 


ifiloR 




BR 


3SS 


BIC 


BIT 




BEQ 




ERROR 


m 


CHAIN 




BR 



|PRTY7,-.(SP) 
#1S,-(SP) 

tBIT6,@TKS 
|BIT6,^TKS 



. ft********* 

?AT5— - TEST 
5 ENABL 



^45— CHECKS THAT THE RECEI?ER INTERRUPT 

I BIT CAN BE CLEARED WITH RESET INSTRUCTION* 



Its: 



173034 IS! 

3S; 



If! 



000100 173016 



MOV 

RTI 

BIS 

TSTB 

BEQ 

RESET 

BIT 

BEQ 

ERROR 

CHAIN 

BR 



iPRT¥7|--(SP) 
ll$,-(§P) 

#BIT6,@TKS 
|BIT6,gTKS 



? ITERATION COUNT 

? SCOPE ENTRY 

?SET PRIORITY TO 7 

?SET INTERRUPT ENABLE BIT 

?BE SURE PRINTER IS DONE WITH OLllSl 

?BEFORE ALLOWING FOLLOWING RESET. 

;RESET 

?TEST INTERRUPT ENABLE BIT 
?|RANCH if CLEARED 
;STILL SET#BRROR 
ICHAIN TO NEXT ROUTINE 
JREPEAT TEST 
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0100 
0100 



000340 
005716 



000100 
000100 



172672 
172662 



?AT6— Sif||Jf;rISS|§-l9LJiiti?L Io»§iT and clear 



mm \m\ 



172740 2SS 
172732 



#8IT6,iTPS 
|BIT6^|tPS 

|llT6,@TPS 
|BIT6|,iTPS 
3$ 



?test number 
;next test 

jiteration count 

5 scope entry 

?set priority to 7 



SET INTERRUPT ENABLE BIT 
iCHECf THAT BIT IS SET 

BRANCH IF SET 
sNOT SET. ERROR 

CHAIN TO NEXT TEST 
(CLEAR INTERRUPT ENABLE BIT 

CHECK IF BIT IS CLEARED 

BRANCH IF CLEARED 

NOT CLEARED, ERROR 

CHAIN TO NEXT TEST 

DO AGAIN 



. ********** 
5AT7-" TEST i 
I INTERF 

AT7: 



IS? 



.1Ir~ISfl?„^SI».^8Il-IfY TO CLEAR TRANSMITTER 

UPT ENABLE BIT MITH RESET INSTRUCTION. 



25: 



#PRT¥7^»(SP) 
#1$,-CSP> 

#BIT6,pTPS 

|BIT6,@TPS 

IS 



JTEST NUMBER 
?NEXT TEST 
^ITERATION COUNT 
? SCOPE ENTRY 
;SET PRIORITY TO 7 

;SET INTERRUPT BIT 



; RESET 

?CHSCK IF BIT 



IS CLEARED 
IF CLEARED 



?REPEAT TEST 



mil S85746 UU07 




000226 

172572 
172564 
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********** 



&T10— 



********** 



TEST #50— CHECKS THAT RESET SETS THE TRANSMITTER 
READY BIT AND THAT THE READY BIT CAN RE READ RELIABLY. 



ATIO: 



50 

ATll 



172732 IS: 



BIT 
BNE 
RESET 
TSTB 
BMI 
ERROR 
2S: CHAIN 
BR 

• ********** 



|LSIllrflSR 



;TEST NOMBER 
?MEXT TEST 
llTERATION^CDUHT 

IIkIP^tISI^If AN LSI- 



11 



IS 



JRESET 

>CHECK TRANSMIT READY BIT 

IeRROr" REsif^DID NOT SET READY BIT 
JCHAIN TO NEXT TEST 
?D0 AGAIN 



;AT11— TEST #51 — TESTS THAT THE TRANSMITTER READY RESETS 
? BY LOADING THE TRANSMITTER BUFFER. 

• ********** 



MOV 
DELAY 

RESET 

CLR 

TSTB 

BPL 

ERROR 

CHAIN 

BR 



#226, RO 



§TPB 



?TEST NUMBER 
;NEXT TEST 
;TTERATION COUNT 
;SCOPE ENTRY 

?D|LAY 150 MSEC. 
; RE SET 

ILOAD TRANSMITTER BUFFER 

?NOT CLEARED, ERROR 

?CHAIN TQ^NE^T TEST 
;REPEAT TEST 
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M 



30O 

m 

600 
700 



mi 
ml 

245C 

m 

248C 
249C 

m\ 

252( 



006 




172514 2S: 



172472 
006144 

mm 

172432 



172440 



SEQ 0083 



fPCH? 



52 

II 

RESET 

CLR 

CLR 

MOV 

RTI 

BIS 

NOP 

ERROR 

CHAIN 

BR 

PgPSP2 



-(SP) 
#2$,-(SP) 

#BIT6,8TPS 



;test number 
j next test 

ITERATION COUNT 
?SCOPE ENTRY 

'§ST.2P TRANSMITTER INTERRUPT VECTOR 
?T0 4S 

JSEE CHAINY COMMENT 
JDISABLE TRANSMIT INTERRUPT 
?SET PRIORITY TO ZERO 



?ENABLE TRANSMIT INTERRUPT 



INTERRUPT 

5REPEAT TEST 



• ft*** 
?AT13 



IIfJII?.:"''''ESTS THAT THE TRANSMIT READY DOBS NOT CAUSE AN 
***12FPR"PT^ »"EN THE PROCESSOR IS AT THE SAME LEVEL 



• ********** 



AT13: 


35 












STPCHV 


is: 


M§V 




MOV 




RTI 


2S: 


CLR 
BIS 


3$: 


NOP 
CLR 




gHAIN 






4S: 


P0PSP2 




ERROR 




BR 



TPLVLt-fSP) 
#2$,-tSP) 



IF 



#PIT6,gTPS 
#TPS 
IS 

3S 



AT THE SAME LEVEL 

?||ST NUMBER 
?NEXT TEST 
JITBRATION COUNT 
;SCOPE ENTRY 

'SII-SK 15*?SMIT INTERRUPT 
;VECTOR TO 45 

;SBT PROCESSOR TO SAME LEVEL AS XMITTER 

?DISABLE^TRANSMITTER INTERRUPTS 
;ENABLE TRANSMITTER INTERRUPTS 

;0K, NO INTERRUPT OCCURRED 

HNTERRUPT OCCURRED^ERROR, CLEAN 
;UP STACK 

;CHATN TO NEXT TEST 
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Ml 

hlh mm 




* « * ft «t ft » ft ft ft 



TESTt54 _ ^ 

INTERRUPT WHEN THE PROCESSOR IS ..^ .. 

ONE LOWER THAU THE TRANSMIT IMTERftUPT REQUEST 



TESTS THAT THE TRANSMIT REJiDY DOES CAUSE 
~ ^ PRIORITY LEVI 



AN 

-,.^L 
EVgL 



172354 2S: 



mm 



m 



if- 

STPCHV 

cEr 

MOV 

SUB 

MOV 

RTI 

BIS 

NOP 

ERROR 

BR 

CHAIN 
BR 



PL¥L,-(SP) 
«2$^-(SP) 
#BIT6,(aTPS 



4S 



IS 



JTEST NUMBER 
;NEXT TEST 
;ITERATION COUNT 
;SCOPE ENTRY 

;SET UP TRANSMIT INTERRUPT 
; VECTOR TO IS 

JDISABLE TRANSMIT INTERRUPTS 
;SET PROCESSOR PRIORITY ONE 
; LEVEL LOWER THAN TRANSMITTER 



;ENABLE TRANSMITTER INTERRUPTS 

;N0 INTERRUPT. ERROR 
;CHAIN TO NEXT TEST 

;CHAIIl TO NEXT TEST 

JREPEAT 



ISM"" 
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28400 




3_ 

33000 
33100 



172314 

006312 
000100 

172266 



006354 
006350 



5777 

Jm 

104905 
000761 



172276 



001000 
00226 



172172 



3 ftftftftftftft*** 



>AT15— TESTfSS— TESTS THAT THE TRANSMIT READY DOES HOT 
— 'NTE " "" ■■■ ~~~ 



RBINfERRUPT AFTER 
^NgT BEEN RESET« 



AT15: 


55 




ATI 6 


is: 


^' 

STPCHV 




CLR 
CLR 
MOV 




RTI 


2$: 


BIS 
NOP 




ERROR 


3$: 


CLR 




CHAIN 




BR 


4$: 


MOV 


MOV 




RTI 


5S: 


NOP 




BR 


65: 


P0PSP2 


ERROR 




BR 



#2$,-(SP) 
»BIT6,»TPS 

8TPS 

pS, aTPVTR 

3S 
35 



AN RTI WHEN THE READY BIT HAS 



;TEST NUMBER 
;NEXT TEST 

?SET TRANSMIT INTERRUPT VECTOR 

yENABLE TRANSMITTER INTERRUPTS 

yERRORlr TRANSMITTER FAILED TO INTERRUPT 
lOISABLE TRANSMITTER INTERRUPTS 
;CHAIN TO NEXT TEST 
;REPEAT TEST 

INTERRUPT OCCURRED, CHANGE INTERRUPT 
JVECTOR TO 65 AND RETURN TO 5$ 
?RETURN FROM INTERRUPT 

;CHAIN TO NEXT TEST 
?ERR0R2# TRANSMITTER REINTERRUPTED 
; AFTER RTI WITH READY BIT LEFT ON. 
; CLEAN STACK, CHAIN TO NEXT TEST. 



. ftftftftftftftftft* 

>^Il§rrI|SI#56— CHECKS THAT RESET CLEARS THE RECEIVER DONE BIT 



172314 IS: 



25: 



3S: 



Ifl7 
10. 

^ft 

BNE 

MOV 

DELAY 

AREAD 

RESET 

TSTB 

BPL 

ERROR 

CHAIN 

BR 



|LSIll,gSR 
#l26,R0 



(ITKS 
3S 



15 



;TEST NUMBER 
;NEXT TEST 

?TTBRATTON COUNT 

JSCOPB ENTRY 

JSKIP TEST IF LSI-11 

?OELAY 150 MSEC, 
^ENABLE RECEIVER 
?RESET 

?TEST DONE BIT 
;BRANCH if DONE IS CLEARED 
J NOT CLEARED, ERROR 
ICHAIN TO NEXT TEST 
?REPEAT TEST 
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000057 
006500 
00001 



172130 
17212" 




• ********** 



• ***«■*★**** 



57 

AT20 



TEST#57— CHECKS THAT REFERENCING THE RECEIVER BUFFER 
CLEARS THE DONE BIT. 



001000 172246 1$: 



II; 

RNB 
MOV 
DELAY 
S: AREAD 
TSTR 
TSTB 
BPL 
ERROR 
S: CHAIN 
BR 



|LSI11,ASR 
#226, RO 



9TKB 



;TEST NUMBER 
JNEXT TEST 
;ITERATION COUNT 
; SCOPE ENTRY 
jCHECr FOR LSI-11 
ySKTP TEST IF SET 

?OELAY 150 MSEC. 
?BMABLE RECEIVER 
;REFERENCE RECEIVER BUFFER 
>TEST DONE BIT 
;BRANCH IF NOT SET 
?DONE BIT IS SET, ERROR 
?CHAIN TO NEXT TEST 
;REPEAT TEST 



;AT20— TEST#60— CHECK THAT THE RECEIVER DONE BIT IS ABLE TO 
; CAUSE AN INTERRUPT. 

J ********** 



172172 1$: 



172034 3S: 



000751 



60 

AT21 
STRDRV 

bIt 

BNE 

MOV 

DELAY 

AREAD 

CLR 

CLR 

MOV 

RTI 

BIS 

NOP 

ERROR 

P0PSP2 
CHAIN 

BR 




#RIT6/gTKS 



IS 



;TEST NUMBER 
J NEXT TEST 
^ITERATION COUNT 
; SCOPE ENTRY 

?SET UP RECEIVER INTERRUPT 
;VECTOR TO 4S 
;CHSC^ FOR LSI-11 
;SKIP TEST IF SET 

fDELAY 150 MSEC 

;ENABLE RECEIVER 

;DISABLE RECEIVER INTERRUPTS 

JSET PROCESS STATUS TO ZERO 



?ENABLE RECEIVER INTERRUPT 

JERROR^RECBIVER FAILED TO INTERRUPT 
?CHAIN TO NEXT TEST 
;0K, CLEAN STACr 
;CHAIN TO NEXT TEST 

?REPEAT TEST 



CZLACEO LA36 TERM (DLll & KLll) 
I/O LOGIC TESTS 




MACRO MlllO 25-AUG-7B 10:13 PAGE 35 
J ********** 

;AT21 — TEST#61— TESTS THAT THE RECEIVER DONE DOES NOT CAUSE AN 
; INTERRUPT WHEN THE PROCESSOR IS AT THE SAME LEVEL AS 

1*******131 RECEIVER'S INTERRUPT REQUEST LEVEL. 



AT21: 



001000 172100 IS: 



2St 



3S: 
45: 



61 

sIrdrv 

IIt 

BNE 

MOV 

DELAY 

AREAD 

CLR 

MOV 

MOV 

RTI 

BIS 

NOP 

CLR 

CHAIN 

BR 

P0PSP2 

ERROR 

BP 



#LSIllr5aSR 
ll26^R0 



TKLVLc-(SP) 
#3$,-rsP) 

#BIT6^«TKS 

PTKS 

IS 

4S 



?TEST NUMBER 
?MRXT TEST 
;ITERATTON COUNT 
? SCOPE ENTRY 

?SET RECEIVER VECTOR TO 5S 

?CHECK FOR LSI-11 
?SKIP TEST IF SET 

JDELAY 150 MSEC 

;ENABLE RECEIVER 

yOISABLE RECEIVER INTERRUPTS 

?SET PROCESSOR PRIORITY TO SAME LEVEL AS RECEIVER 

?ENABLE RECEIVER INTERRUPTS 

;0K, NO INTERRUPT OCCURRED 
;CHAIN TO NEXT TEST 
JREPEAT TEST 

JERROR, RECEIVER INTERRUPTED, CLEAN STACK 
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439 
440 



6676 



m 



k 

hi 



mi 



m\ 
mi 

6742 

mi 



6766 022626 

III; '"^^ 



5077 
4005 
0743 



172000 is: 



001000 
000226 

im 

ima mm 



. H A it ie -nit 



UT22— TEST»62— TESTS THAT THE RECEIVER DONE DOES CAUSE AN 
- INTERRUPT MHEN THE PROCESSOR IS AT A_PRigRIT¥ ONE 



; LEVEL LOWER THAN THE RECEIVER'S INTERRUPT 

; REQUEST LEVEL 



2S: 



IP. 



||RDR? 

BIT 

BNE 

MOV 

DELAV 

APEAD 

CLR 

MOV 

MOV 

RTI 

SUB 

BIS 

NOP 

ERROR 

P0PSP2 
CLR 
CHAIN 
BR 



fLSIllraSR 
»l26,R0 

9TKS 

firLVL,-(SP) 
#3S^-ISP) 

TBfflf^ 



8TKS 



5S 

STKS 
1$ 



J ITERATION COUNT 
? SCOPE ENTRY 

flifTgnrii 

;CHECfr FOR LSIll 

;skip test if set 

?delay 150 msec 

;enable receiver 

jdisable reader interrupts 

?srt processor priority one level 



JFAILED TO INTERRUPT 

>CHAIN TO NEXT TEST 

JOJC, CLEAN STACir 

?0ISA8LB RECEIVER INTERRUPTS 

JCHAIN TO NEXT TEST 

;REPEAT TEST 
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001000 171676 



hum 



mm 



hT23— TEST#63 

"BINtERRUPT AFTER RTI 



CHECKS THAT THE RECEIVER DONE DOES NOT 
INSTRUCTION WHEN DONE 



IS: 
2S: 



3S; 



171530 45: 

5S: 
6S: 



BIT 

BNE 

MOV 

DELAY 

AREAD 

STRDRV 

c2r 

BIS 

NOP 

ERROR 

CLR 

RESET 

CHAIN 

BR 

MOV 

MOV 

RTI 

NOP 

BR 

P0PSP2 

ERROR 

BR 



|LSI11|.0SR 
#226rR0 



|TKS 

|PIT6,@TKS 
gTKS 



III; 



STKVTR 
SP 



3$ 



?TEST NUMBER 

;next test 

5ITERATT0N COUNT 
JSCOPE ENTRY 
yCHECK FOR LSI-11 
;SKtP TEST IF SET 



lOELAY 150 .._ 
JENABLE RECEI 



MSEC 



?SET RECEIVER INTERRUPT 
;VECTOR TO 4S 

?DT SABLE RECEIVER INTERRUPTS 
;ENABLE RECEIVER INTERRUPT 

?N0 INTERRUPT, 



uri, ERROR 

jCtfAlN TO NEXT TEST 
JREPEAT TEST 

'IHflBi"£Ifc 9S«„CHANGE VECTOR TO 6$ 
; CHANGE RET ADDR TO 55 
? RETURN 

}QK, NO ADDITIONAL INTERRUPT 
;ERROR, ADDITIONAL INTERRUPT 

;CHAIN TO NEXT TEST 



CZLACEO 

I/O LOG 

48200 
48300 

mn 

4910 

m 

494C 
49f 
49< 
49:, 
498 

50100 

liili 

50500 

mn 

50 800 
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07116 

m 
mi 

'7142 

Ml 

m 

07170 

Mill 

007204 



OOOOOl 

nm 

"1426 
1777 



012706 

mm 

014401 
007170 005367 

im 

104001 



001000 
171454 



000600 
000030 



171424 
171522 
000600 
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;AT24— TEST»64— HAVE OPERATOR TYPE A CHARACTER ON THE 
? KEYBOARD, THEN CHECK FOR RECEIVER DONE. 



AT24: 64 

AT25 
1 



171564 1$: 



2$: 



3S: 



4$: 

5$: 



BiT 
BEQ 
TST 

Irror 

MOV 

MOV 

TYPE 

OPMSG 

DELAY 

TSTB 

BMI 

DEC 

BEQ 

MOV 

BR 

ERROR 
CHAIN 



ALLOW 12 SECONDS FOR OPERATOR RESPONSE. 



|LSI11,«SR 
I30/CNTR 



CNTR 
||00rRO 



;TEST NUMBER 
?NBXT TEST 
flTERATTOH COUNT 
J SCOPE ENTRY 

;SKIP TEST IF NOT AN LSI-11 

^SHOULD BE CLEAR 

;RECEIVER STATUS MOT =0 
;l/2 SEC DELAY 
?SET ■"" -'~ " 



UP FOR 12 SEC WAIT 

CHARACTER 



;MESSAGE TO TYPE A 
?l/2 SECOND 

JTIME HAS RUN OUT... 
JANOTHER 1/2 SEC 
;CONTINnE WAIT 
?N0 RECEIVER DONE, OR 
^OPERATOR DID NOT RESPOND 
JCHAIN TO NEXT TEST 
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51 
52, 

III 

5251 

m 

m\ 

5321 
5331 



7214 

- ^7216 
0672|0 

22*^236 

mm 

007244 

Will 



000065 
007270 

mm 
mm 

105777 

m\ 

007262 

0002 40 
104001 

mm 



;AT25—TEST#65— CHECK THAT RECEIVER DONE CAUSES AH INTERRUPT 
WHEN BIT 6 (INTERRUPT ENABLE) IS SET. 



001000 171464 IS: 
171354 2S: 

3$: 

000100 171336 



m 

6S: 



65 

AT26 

1§ 

BIT 

BEQ 

TSTB 

BNE 

ERROR 

STRDRV 

55 

BIS 

NOP 

NOP 

ERROR 

P0PSP2 

CHAIN 



|LSIll,aSR 

||ks 



#BlT6,|iTKS 



?TEST NUMBER 
?NEXT TEST 
HTERATION COUNT 
?SCOPR ENTRY 

;SKTP TEST IF NOT AM LSI-11 

?DONE SHOULD BE SET 

;RECEIVER DONE NOT SET 
;SET RECEIVER INTERRUPT 
yVECTOR TO 5$ 
JENABLE INTERRUPT 



?RECEIVER DID NOT INTERRUPT 
?CLEAN UP THE STACK 
;CHAIN TO NEXT TEST 



007266 000755 



IS 



1118 

5370 

li 
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SEQ 0092 



li 

548f 



- 007270 000066 
go 007272 177777 



032777 001000 
171276 



I m m 

'-55^ Mil 
II 




OOOIOO 171242 



5AT26— TEST#66- 



AT26 



IS! 

2S: 



1713 70 3S: 



4$: 



5S: 
6$: 



66 

\\ 

BIT 

BEQ 

TSfB 

BNE 

ERROR 

MOV 

TSTB 

BPL 

ERROR 

STRDRV 

BIS 

!l§^ 

CLR 
CHAIN 

IIror 

P0PSP2 
BR 



•CHECK THAT READING TKB CLEARS DONE BIT 
AND THAT DONE CLEARED DOES NOT CAUSE AN 



JTEST NUMBER 
;LAST TEST 

JSKTP TEST IF NOT AN LSI- 



|LSIll,gSR 

gTKB^CNTR 



»BIT6/(»TKS 

OTKS 

IS 



11 

SET 



;MAKE SURE DONE IS STILL 

;RECEIVER DONE NOT SET 
JREAD DATA BUFFER 
;CHECIC THE DONE BIT 
JOK 

;READING DATA BUFFER DID NOT CLEAR DONE 
;SET RECEIVER INTERRUPT 
? VECTOR TO 6S 
JENABLE INTERRUPT 



jOK- CLEAN UP 
JEXIT TESTS 

;DLV INTERRUPTED WITH DONE CLEAR 
;CLEAN UP THE STACK 
;EXIT TESTS 
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GIC TESTS 



56500 



£|UCE0.LA36 TERM_(0L11 




& KLll) MUCRO MlllO 25-AOG-78 10U3 PAGE 42 

.SBTTL LA36 PRINTER TESTS 



87444 



303 

Am 

01365 
104005 
000757 



THE LA36 PRINTER TESTS HILL BE EXECUTED IN k 
CONTINOUS LOOP OOTPUTTING TO ALL MULTIPLE DLll'S 
IF SR BIT 8 IS SET TO ZERO AT START UP TIME. IF 
BIT 8 is SET TO 1 AT START UP THEY MAV BE EXECUTED 
INDIVIDUALLY ONCE OR CONTINUALLY LOOPED^ OR 



BECOME THE FIRST OF THE ENTIRE SEQUENCE OF PRINTER 
TESTS. REFERENCE INTRUCTIOHS IN THE INTRODUCTION 
FOR PROPER MODE OF OPERATION. 



XXXXXXXXXX 



DATA PATH TEST FOUR LINES OF ALTERNATING 

H«n j^No mjn i^RE PRINTED, OUT TO THE GIVEN PAPER 
WIDTH. THE PATTERN WILL APPEAR AS FOLLOWS. 



*U*U*U*U*U*U 
U*U*U*U*U*U* 
*U*U*U*U*U*U 

U*U*U*U*U*U* 

XXXXXXXXXX 

^TO! 

PTl 

PRTHDR 

TYPEM 

HDRO 

ISS MOV #"U*£P3 

MOV 

25: MOV r3Sro 

MOV WIDTH^Rl 

35: PRIMTC 

SWAB RO 
DEC Rl 
BNE 35 
SWAB R3 
CRLF 

DEC R2 
BNE 2$ 
CHAIN 

BR IS 



?TEST NUMBER 
JNRXT TEST 

JPRIBT COLUMN # MESG 

fSET FIRST CHAR PAIR 
?SET LINE COUNT 
;SET CHAR PAIR 
;SET COLUMN COUNT 
?PRINT CHAR 
?SET NEXT CHAR 
;DEC COLUMN COUNT 
?FINISH LINE 

JSET NEXT LINE START CHAR 

?SEND CR-LF 

?DEC LINE COUNT 

;FINISH TEST 

;ALL DONE, EXIT 

;REPEAT TEST 
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.07544 

mm 

007552 

007564 
007566 



000200 



JXXXXXXXXXX 

JPTI — PRINTER CHARACTER TEST 
;XXXXXXXXXX 

PTl: 1 



1$: 
2 5: 



3$: 



SPSP: 
is: 



000207 



PRTHDR 

MOV 

MOV 

MOV 

MOVB 

JSR 

MOVB 

JSR 

MOV 

MOVB 

PRINTC 

DEC 

BNE 

CRLF 

CMPB 

TSTB 

CMP 

BLO 

CHAIN 

BR 

MOV 

PRINTC 
DEC 
BNE 
MOV 

PRINTC 
MOV 

PRINTC 
RTS 



#40,R1 

R1,PD 

PC/SPSP 

R2,P0 

PC,SPSP 

#3,R4 

R3,R0 

R4 

3S 



{R|H,(R2). 
R3##200 



R 
2 

ILr4 

n 

#40, RO 
#40, RO 

PC 



PRINTS ALL PRINTABLE CHARACTERS 



?TEST NUMBER 
?NEXT TEST 



;SPACE TO Rl 

J9 TO R2 

}\ TO R3 

?CHAR TO RO 

JSEND TWO SPACES 

JNEXT CHAR TO RO 

;SEND TWO SPACES 

yPRINT COUNT TO R4 

?THIRD CHAR TO RO 

?PRTNT THE CHAR 

;THREE TIMES "> 

JBRANCH IF NOT 

^CARRIAGE RETURN LINE FEED 

?NEXT CHARACTERS 

?CHBCK IF ALL DONE 
?BRANCH IF NOT 
?EXIT TO NEXT TEST 
;REPEAT TEST 
?PRINT COUNT TO R4 
?PRINT CHAR 
?THREE TIMES? 
;BRANCH IF NOT 
?SPACE TO RO 
JSEND A SPACE 
?SPACE TO RO 
?SEND ANOTHER 
;RETURN 
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m 

40 
114 



;xxxxxxxxxx 



JPT2 
} 
? 
? 
? 

; 



NON-PRINTING CHARACTER TEST. THIS TEST 
PRINTS THE OCTAL CODE FOLLOWED BT THE MNEMONIC 
OF ALL NON-PRINTING CHARACTERS. FOLLOWING EACH 
MNEMONIC, THE PRINTER IS DRIVEN BV THE NON-PRINTING 
CODE (000 THROUGH 037 PLOS 177) 

ALL CONTROL CHARACTERS (INCLUDING THOSE FOR OPTIONS 
WILL RE SKIPPED^ REFER tO THE DOCUMENT FOR A LIST OF 
TESTED. 



JXXXXXXXXXX 



2 

PT3 



h2: 



5$I 



7S: 



060 IDEZ: 

m 



MOV 
MOV 

m 

CMPB 

PEQ 

MOVE 

PRINTC 

DEC 

BNE 

MQVB 

MOV 

PRINTC 
DEC 
~NE 



tIDEZ,Rl 

Inpcode^Rs 

|r35,#55 
(Rl)*rRO 
R4 




;TEST NUMBER 

>nett test 

?ador of non-print-codes to r3 

}tero terminator in np table? 

;bramch if yes 

;GET ID CHARACTERS 

;ANn PRINT A 

?GROUP OF 

?8 CHARACTERS 

?GET NP CODE FROM TABLE 

; AND 

?trv to print it 

;more to go on this line ? 

;RRANCH if no 

?seno 3 spaces 
jbranch to continue line 
>g0 do next line 
?chain to next test 



.ASCII /OOO NULOOl SOH002 STX/ 



.ASCII /006 ACK020 DLS021 DCl/ 
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13000 007756 



13500 

13600 

13700 
13800 



m III B 



040 

m 

104 

B 
II 

40 

m 

060 
040 

m 

40 
040 

040 
114 



036 
055 



103 
062 
040 



104 

m 

103 
362 
040 

m 

123 



063 
040 
116 

k 

060 

m 

063 
040 

nl 

107 

III 

063 
040 
040 
067 
104 
040 

III 



062 
104 

m 

103 

064 
065 
116 

fif 

Iff 

40 
115 
63 

m 

064 
106 

818 

123 

V4 

40 

m 

105 



177 



.ASCII /022 DC2023 DC3024 DC4/ 



. A SC 1 1 /025 SAK026 SYN027 ETB/ 



.ASCII /030 CAN031 EM 032 SUB/ 



.ASCII /034 FS 035 GS 036 RS / 



.ASCII /037 US 177 DEL / 



.BYTE 

.BYTE 

.BYTE 
.EVEN 



0,2^6,20,21,22,23,24 
25,25,27,30,31,32,3 4,35 
36,37,177,55 
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--4 

nllll 

010244 

mill 

56 

010260 

mm 
MM 



§Qa767 
nm 

104022 



005301 
001374 



} xxxxxxxxxx 

;PT3 — CARRIAGE RETURN TEST 



000117 



000001 



000002 
170402 



AND 

TO THE LAST 
THEN THE 



THE LINE CONSISTS OF A STRING OF O'S 
X'S. FIRST, THE O'S ARE PRINTED OUT 

COLUMN WITH A SPACE SEPARATING EACH. 

CARRIAGE IS SPACED TO THE FIRST BLANK SPACE, AN X 
IS PRINTED AND THEN RETURNED TO THE MARGIN. THIS 
PROCESS IS CONTINUE UNTIL ALL SPACES BETWEEN 
THE ZEROES HAVE BEEN FILLED. 



170440 



170406 
170356 



;xxxxxxxxxx 


PT3: 


3 




PT4 




PRTHDR 


1$: 


CLR 


MOV 


2$: 


HOV 


PRINTC 




DEC 




BEQ 




JSR 




DEC 




BNE 


3S: 


CR 




MOV 




MOV 


ill 


JSR 




DEC 




BNE 




MOV 




PRINTC 




CR 




ADD 




CMP 




BLO 




LF 




CHAIN 







SPCNT 
WIDTH,R1 
#117, RO 

Rl 
3S 



r 



#1, SPCNT 
SPCNT, Rl 
PC,SPC 
Rl 

ifso^RO 



#2, SPCNT 
SPCNT, WIDTH 
4S 



;TEST NUMBER 
?NEXT TEST 
JTYPE HEADER 
?CLEAR SPACE COUNTER 
?POSITION COUNTER TO Rl 
J^O" TO RO 
JPRINT THE "Q" 
)DECREMENT POSITION COUNTER 
;BRANCH IF 
JSENO SPACE 



DECREMENT P( 
--AMCH — 



iSITION COUNTER 
T ZERO 



BRANCH IF 
SEND A CR 

SPACE, COUNTER SET TO I 

DECREMENT SPACE COUNTER 
BRANCH IF NOT ZERO 
~X" INTO RO 

RINT "X" 

RINT CR 
INCREMENT SPACE COUNT BY 2 



?SEND LF 



IP 
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010310 

mwi 

010324 

mm 

010340 

mm 



0700 



016440 
010442 

010444 
010447 
010452 



XXXXXXXXXX 

PT4 — MULTIPLE LINE FEED TEST — 63 LINE FEEDS ARE 

SENT WITH A REFERENCE LINE AT THE START AND END. 

A NUMBER IS PRINTED WHICH INDICATES THE NUMBER OF LINE 

FEEDS THAT WILL BE ISSUED BEFORE THE NEXT 

NUMBER OR REFERENCE LINE IS PRINTED. 



mil 

010444 

mm 



170334 
000100 



mm 



60 070 



?xxxxxxxxxx 


PT4: 


4 




PT5 




PRTHDR 


1$: 


MOV 


HOV 




MOV 




JSR 




MOV 


II-: 


LF 




DEC 




BNE 




ASL 




CMP 




BEQ 




MOVB 




PRINTC 




MOVB 




PRINTC 




CR 




BR 


4S: 


MOV 


JSR 




LF 




CHAIN 




BR 


REF: 


MOVB 




PRINTC 




MOVB 




PRINTC 




TST 




MOV 


is: 


PRINTC 




DEC 




BNE 




CR 




RTS 



mm m m 



060 
064 
61 
062 



#LINE3,R2 
PC, REF 
LFCNT,R1 

Rl 
3$ 

LFCNT 

JBIT6,LFCNT 

(l2)+,R0 

<R2)+,R0 

2S 

WIDTH,R1 
PC, REF 



♦ ,R0 
+,R0 



;TEST NUMBER 
JNEXT TEST 
JTVPE HEADER 
;LIWE FEED COUNT TO 1 
;c5lUMN COUNT TO Rl 



;ADDR of NUMBER FIELD TO R2 

p 



fPRINT REFERENCE LINE 
;LINE FEED COUNT TO Rl 



?ft2) 
(R2) 



PC 

/01020408163200/ 



. SEND LF 
;nECREMENT COUNTER 
; BRANCH IF NOT YET 
?DODBLE LINE FEED COUNT 
?TEST IF COUNT IS 32 
?BRANCH IF =32, END 
J NUMBER TO RO 
;PRINT IT 
;NUMBER TO RO 
JPRINT IT 
?PRINT CR 

JDRTVE THE LINEFEEDS 
JCOLUMN COUNT TO Rl 

?send end reference line 
;advance paper 

;repeat test 
? number to rd 

yPRINT IT 

;number to RO 

?PRINT IT 

;DECREASE COUNTER BY 2 
;DASH (-? TO RO 
yPRINT IT 

; DECREMENT COLUMN COUNTER 
?BRANCH IF NO ZERO 
?PRINT CR 
?RETURN 
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28100 010654 

Hi 8 mn\ 



010664 



016701 

'm\ 

mm 
IWi 

oiff766 
'00207 



000071 
000060 



;XXXXXXXXXX 

?PT5— SINGLE LINE FEED TEST — TESTS THE LINE FEED 

J CAPABILITY FROM ALL COLUMNS. 

JXXXXXXXXXX 



PT5! 



is: 



170126 000204 
003410 



3?: 



6S: 



is: 



2$: 



WIDTH, Rl 



nDTHr»132. 
#3410, RO 




jtest number 
'type hIader 

jCOLUMN COUNT TO Rl 

jdecrease by 2 

J'O' TO RO 

JSEND 

; decrement column counter 

JRRANCH IF not ZERO 

;send a 2 

JSEND A SECOND TWO 
fDELAY 1.9 SEC 



?3'S TO RO 
;64 TO COUNTER 
JSEND CHARACTER 
fnECREMENT COUNT 
?BRANCH IF NOT ZERO 
;SEND A CR,LF 
;N0. COLUMNS TO Rl 
JRACKSLASH TO RO 
;SEND IT 
;PRINT LF 

fdecrement counter 
;branch if not zero. 

;SSND CR 
?SENO REF LINE 

;SENO A SECOND REF. 
JSEND A CR#LF 
;CHAIN TO NE " 
JREPEAT TEST 
JCOLUMN COUNT TO Rl 

TO go 

JPRINT RO 

?DEGREMENT COUNTER 
;RRAflCH IF=0 



XT TEST 



JPRINT 

-~EGRE 

, RANCH IF=0 
JINCREMENT CHARACTER 
JCOMP CHAR TO "9" 
?RRANCH IF LOWER OR SAME 
;RESET CHAR TO "O" 
^CONTINUE 

JFIHISHED, RETURN TO CALLER 
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2880 
2890 



30000 

20195 



0740 

mt 

0750 



0764 
0766 



012700 
012701 

im 

104312 

mm 

104015 

mm 

1053 



|64f)15 
0053P1 
"n365 



1040 



4?y 



mi 
irm 

104005 
000712 



167746 
000060 

000062 

167716 
003410 



0063 
0100 



mm 

000010 
000057 



177576 
001750 
177562 



;xxxxxxxxxx 

;PT6- 



SEQ 0101 



ilc*^il9^TFiIr«;oA REFERENCE LINE SUCH AS IN 
TEST PTS IS PRINTED. THE SECOND LINE CONSISTS 
OF PRINTING A BACKSLASH, BACKSPACE AND FORWARD 



;xxxxxxxyf ^ *^ ^"''^^^ ^ss' 



IS: 



45: 



6 

PT7 

PRTHOR 

TYPEM 

HDRO 

MOV 

TST 

MOV 

PRINTC 

DEC 

BNE 

MOV 

PRINTC 

PRINTC 

CMP 

BEQ 

MOV 

DELAY 

BR 

MOV 

MOV 

PRINTC 

DEC 

BNE 

CRLF 

MOV 

MOV 

PRINTC 
MOV 

PRINTC 
MOV 

PRINTC 

DEC 

BNE 

LF 

CR 



MOV 

DELAY 

JSR 

CRLF 

CHAIN 

BR 



WIDTH, Rl 
Rl 

l?2,R0 

WIDTH, #132. 
#3410, RO 

5S 

#63,R0 
#100, Rl 

#10, RO 

#57, RO 

Rl 
6S 

PC,PT5AL 
#1750, RO 
PC,PT5AL 

IS 



;TEST NUMBER 
?NEXT TEST 
;PRINT HEADER 
;PRTNT COLUMN # MESG 

?COLUMN COUNT TO Rl 
?SEMD 

;DECREMENT COLUMN COUNTER 

I'' MOT ZERO 
?"2" TO RO 
?SEND A "2" 
?SENO A SECOND "2" 
^COMPARE COLUMN COUNT 

?DELAY 1.8 SEC 



?3'S TO RO 

?22 "~ 



CHAR COUNT 
;SEND CHAR 
?DBCREMENT CHAR COUNT 
?CONTINUE IF NOT DONE 
;SEND A CR,LF 
JCOLUMN COUNT TO Rl 
? BACKSLASH TO RO 
;SEND IT 

^BACKSPACE TO RO 
;SEND IT 

?FORWORD SLASH TO RO 
?SEND IT 
?END OF PAPER 

;branch if no 

JSEND LF 
?SEND CR 

?DELAY 1 



SEC 



?§iSR ?ECgNp REF LINE 
;SEND A CR,LF 
?CHAIN TO NEXT TEST 
?REPEAT TEST 
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000002 

mm 



176450 
000002 




XXXXXXXXXX 



OVERPRINT TEST— A R0« OP ALTERNATING M'S AND 

SPACES ARE PRINTED, OUT TO THE LAST COLUMN AND OVERPRINTED TWICE. 
A SECOND LINE OF ALTERNATING SPACES AND "d'S" IS THEN 
SENT 3 TIMES AS THE FIRST LINE. THIS IS FOLLOWED 
BY A THIRD AND FINAL LINE OF ALTERNATING 
AND SPACES. 



XXXXXXXXXX 



i 



45: 
55: 

6S: 
7S: 



9$: 
10$: 

11$: 

m\ 



7 

PTIO 

PRTHDR 

MOV 

MOV 

MOV 

PRINTC 

DEC 

BEQ 

JSR 

DEC 

BNE 

CMP 

BNE 

CR 

11" 

TST 

BNE 

CRLF 

TST 

MOV 

m 

BEQ 
MOV 

PRINTC 
DEC 
BNE 
CMP 

l¥ 

DEC 

BR 

TST 

BNE 

CRLF 

TST 

MOV 

MOV 

PRINTC 
DEC 

BEQ 
JSP 
DEC 



#2#R3 

W 

PC,SPC 
||,B3 

?i 

R3 
55 

(R3) + 

WTDTH/Rl 

gJ,SPC 

95 

»100/R0 

Rl 
8S 



iiilS^Ri 

#46rR0 



14$ 

PC,SPC 
Rl 



JTEST NUMBER 
;NEXT TEST 
JPRINT MESSAGE 
?2 COUNT TO R3 



JNO- OF COLUMNS TO Rl 



;TEST R3 
yBRANCH IF NOT FIRST TIME 



TO RO 
;SEN0 IT 
?BND OF LINE 
yBRANCH IF YES 
;SEND SPACE 
;ENO OF LINE? 
?BRANCH IF NO 

..... 

JSEND CR 

;third time? 
jbranch if not 

MeXT LINE 

?REPEAT COUNTER TO R3 
yCOLUMN COUNT TO Rl 

JiiclEfsi^^OLUMN COUNT 
;BRANCH IF 0, END OF LINE 
?"fl" TO RO 
JSEND IT 

?OECREASE COLUMN COUNT 
;RRANCH if not O (not END) 
JEND OF LINE* FIRST TIME? 
SBRANCH IF NOT 
;SEND CR 

SDECREASE LINE COUNTER 

^REPEAT LINE 

;TEST if THIRD REPEAT 

HRANCH if NOT 

?D0 NEXT LINE 

;LINE REPEAT COUNTER TO R3 
?COLUMN COUNT TO Rl 

TO RO 
;SEND IT 

;OECREASE COLUMN COUNT 

;BRANCH IF END 
?SEND SPACE 

^DECREASE COLUMN COUNT 
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15$: 

16$: 



BNE 

CMP 

BNE 

CR 

DEC 

BR 

TST 

BNE 

CRLF 

CHAIN 

BR 



13$ 

R3 

w 

15$ 
1$ 



JBRANCH IF NOT END 
JTEST IF FIRST TIME 
;BRANCH if =2r FIRST TIME 
;SENT CR 

;0ECREASE REPEAT COUNTER 

jprint line again 
?test if end, r3=0 
;branch if not end 

ySEND CR,LF 

jchain to next test 

;REPEAT TEST 
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41200 

iim 

41500 



^2 

42 

IIL 
lli 
llf 

43700 

Hip 

44300 

\\m 

44600 
44700 

mn 

45200 
45300 
45400 
45500 
45600 



\i m 
M im 

III l\M\ 
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;xxxxxxxxxx 

PTIO— PRINTING FREQUENCY TEST 




i« mm 

346 00 6204 

m nm 

354 006204 

llf IIM 

364 022702 

370 003403 

m mm 

400 060567 

m mm 

410 012701 

414 000746 

4JS IqUll 

422 000724 



177760 



000074 
177724 
177716 

000036 



120 H'S ARE PRINTED ON 4 LINES 
N THE FIRST AND SECOND 

m MpmhiT^''^" 

MANNER. THE DELAY IS THEN DECREASED IN THE SAME MANNER OUT TO THE 
120TH CHARACTER. THIS DELAY IS CALCULATED AS FOLLOWS? 



30 PER LINE. THE TEST IS SUCH THAT BETWEEN THE FIRST 



JXXXXXXXXXX 


PTIO: 


10 




PTll 




PRTHDR 


is: 


MOV 




MOV 




MOV 


2$: 


MOV 


PRINTC 


3§: 


MOV 




DELAY 




DEC 




BEQ 


4S: 


DEC 




BEQ 




MOV 




iU 








ASR 








ASR 




ASR 




ASR 




ADD 




CMP 




BLE 




tr 






5S: 


ADD 




BR 


6S: 


CRLF 


MOV 




BR 


7$: 


CRLF 




CHAIN 




BR 



NEW DELAY = OLD DELAY C* OR -1 (OLD DELAY/16 ♦ OLD DELAY/128 ) 



»36,R1 
#30.,RO 



^ 

3S+2rR4 

n 

R4 



It 



R5 



R4, 
R4 
R4 
R4 
R4,R5 
#60., R2 

||,3$*2 

R5,3S*2 

|36,R1 



?TEST NUMBER 
JNEXT TEST 
?TYPE MESSAGE 
?SET Rl=30 

?SET CHAR COUNT = 120 
JSET UP DELAY VALUE 

JDELAV 

>DEC. COUNT OF CHARS PER LINE 

?BRANCH IF 0, END OF LINE 

?0ECREMENT CHAR COUNTER 

?RRANCH IF END 

JGET OLD DELAY 

;CAL 1/16 OF OLD DELAY 



?SAVE 1/16 IN R5 

yCAL 1/128 OF OLD DELAY 



?1/16 ♦1/12B TO R5 

?TEST WHICH HALF OF THE 120 CHARS. 

lil^if? SIcyAiE IIlS? by 34 MEC. 
>G0 PRINT AGAIN 

;LT HALF WAY, ADD DELAY OF 34 MEC. 

/ ii& NU uifLr 

?SET Rl=3« 

?SEND CR,LF 

;CHAIN TO NEXT TEST 

JREPEAT TEST 
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45 

461 ^ 
46100 




000240 
104305 
000753 



1030 
>130 



000042 



XXXXXXXXXX 

PTll— RIBBON FEED TEST— THIS TEST PRINTS A SINGLE COLUMN OF X'S 



XXXXXXXXXX 



11 

PT12 
PRTHDR 
MOV 
MOV 

PRINTC 

CRLF 

DEC 

BNE 

gHAIN 



#30,R1 
ll30,R0 



Rl 
2$ 



MECHANISM FOR PROPER OPERATION. 



JTEST NUMBER 
?NEXT TEST 
?TYPE MESSAGE 

?SET Rl=24(10), LINE COUNT 
;SET CHAR = X 
IPRINT X 
ySEND CR-LF 
;nECREMENT LINE COUNT 
;CONTINUE IF NOT DONE TEST 
?CHAIN TO^NEXT TEST 
;PEPEAT TEST 



XXXXXXXXXX 

PT12— PRINTER BELL TEST-- THE LAST TEST IN THE 
PRINTER TEST SEQUENCE. THIS TEST OUTPUTS 
EIGHT BELL SIGNALS TO THE PRINTER 



XXXXXXXXXX 



fTl2: 


12 




PTO 




PRTHDR 


PT12A: 


MOV 




MOV 


IS: 


PRINTC 




DEC 




BNE 




LF 




MOV 




DELAY 




MOV 




BEG 




NOP 


LOGICAL:JSR 




NOP 




NOP 




NOP 


HERE: 


CHAIN 




RR 



»10,R1 

Rl 
IS 

»3720,R0 

©#42, RO 

HERE 

PC,(RO) 



?TYPE HEADER 
;CQUNTER TO Rl 
?BELL TO RO 
;SEND IT 

; DECREMENT COUNT 
JBRANCH IF NOT ZERO 

;DELAY 2 SEC BEFORE RESTARTING 

yCHECK IF UNDER ACTll OR XXDP 
JCONTINUE TEST SEQUENCE 
;A RESET WAS FORMERLY HERE 



;CHAIN TO NEXT TEST 

?REPEAT TEST 
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»XXXXXXXXXX 

JPT17— LIFE 
' THIS 



mi 



PRINTS 2 

CHARACTER AND OVERPRINT- _ 

f HIS TEST IS CONTINUOUS RUNNING ONCE 



I 

;xxxxxxxxxx 



FULL LINES OF EACH PRINTABLE 
PRINTS THE SECOND LINE 4 TIMES. 
■ "S RUNNING ONCE INITIATED, 
LOOPING AflTOMATICALLY ON ITSELF. 

END OF PASS COUNT IS CLEARED WHENEVER TEST IS RESTARTED 



000031 
000270 



PT17B 
JMP 



11 



PT17B 
CLR 
MOV 
MOV 

PRTHDR 

TVPEM 

HDRO 

MOV 

INC 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

BTOASC 

MOV 

MOV 

JSR 

PRINTC 

DEC 

BGT 

JSR 

CRLF 

MOV 

MOV 

MOV 

JSR 

PRINTC 

DEC 

BGT 

CR 

DEC 

BNE 

JSR 

LF 

INC 

CMP 

BNE 

JSR 

JSR 

JSR 



PASCNT 
WIDTH, R4 
#lrDlRTN 



41#R3 
ASCNT 



r 

PASCNf##31 
20$ 

»1, PASCNT 
fPASMESfcRO 

PC,CKPOS 




PC,ADJR4 



||77,R3 

PC,ADJR4 
PC,ADJR4 
PC/ADJR4 



?CONTINOE 

jTEST NUMBER 

>NEXT TEST 

;CLEAR PASS COUNT 

^INITIALIZE R4 

?AND DIRECTION OF PRECESS 

;PRINT COLUMN # MESG 

;SET START CHAR 

;00 31 TIMES 
JBRANCH IF NOT DONE 
?START OVER 
?SET MESG ADDR 
;# TO CONVERT 
;i DIGITS 

;CONVERT PASCNT TO ASCII 

?SET COLUMN COUNT 

;GET CHARACTER 

;TIME TO INSERT PASS # ? 

?SEND CHAR 

; DECREMENT COUNT 

?BRANCH IF NOT DONE 

; ADJUST R4 POINTER 



SET OVERPRINT COUNT 
SET COLUMN COUNT 
GET CHARACTER 
TIME TO INSERT PASS » ? 
SEND CHAR 
DECREMENT COUNT 
BRANCH IF NOT DONE 
SEND CR 

DONE OVERPRINTS ? 

NO. CONTINUE 

ADJUST R4 POINTER 

SEND LF 

SET NEXT CHAR 

DONE CHAR SET ? 

NO. CONTINUE 

OFFSET POINTER 3 PLACES 

TO RETAIN VISUAL ALIGNMENT 

THROUGH END OF PASS 
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III 



sf?88 iUlil fUgEHj JIYPE END OF PASS MESG 



czLacEO 

LA35 PR 



5750 
S765 
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57 

5R000 

--'go 



III plli m 

111776 



|84i 
5880 



iiiii Ml 



m 

920O 

ii 



mil 



59 
5961 
597 
598 

m 



1 



ml ill 



16700 

04r - 

-Ii 

520 4 
0467 



000040 
002040 
002033 
000040 





012110 

012112 

012114 



530 
662401 

Mm 

005067 
000207 

000000 

000000 



000054 

166504 
166576 
000001 

000004 



000026 



is: 

^DJR4: TS' 



1$: 



2S: 
3S: 



CMP 
BNE 
MOV 

PRINTC 
MOVB 
PRIMTC 
MOVB 
PRINTC 
MOf 
PRINTC 
SOB 
ADD 
RTS 



Ji 

INC 

CMP 

BLOS 

MOV 

DEC 

DEC 
CMP 
BLT 

MOV 
CLR 
RTS 



R4,R1 
llo^RO 
PASMES,RO 
PASMES*1,R0 
#40, RO 



R4, WIDTH 

HiDTH,R4 
R4 

M#DIBTM 



;IS IT TIME TO INSERT PASS # ? 

;branch if no 

;PRINT A SPACE 

;PRINT MSG OF PASS COUNT 



;print a space 

llMVh^M PRIKTC 

JTEST DIRECTION OF PRECESS 
JBR If LEFf 

IINCBEASE POSITION CNTR 
■ R4 > HIOTH ? 

TO 
LgrT- 



PC 







JLESS IHii^S^f 



ASE POSITION CNTR 



f CHANGE fiRECT 



ION TO RIGHT 

;EXIT 

;DIRECTION OF PRECESS (0=LEFT) 
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III 

400 
700 



1100 

m 

m 

lar" 

191 



m 

.12134 

Ml IMl 



4700 



000036 




000060 
166444 
166450 
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.SBTTL LA36 ECHO TESTS 



XXXXXXXXXX 

EO20— CHARACTER ECHO TEST— ALL PRINTABLE AND,_ „ 
NON-PRINTING CHARACTERS TYPED ON THE KEYBOARD 
ARE USED TO DRIVE THE PRINTER, ONE CHARACTER AT 
A TIME. A "RUBOUT" HILL CAOSE THE TEST TO HE 
TERMINATED. 



;xxxxxxxxxxx 



Io20: 
1$: 



166536 
166444 



£^21 

PRTHDR 

READ 

MOV 

DELAY 

CMP 

BEQ 

PRNT 

MOVR 

BR 

TYPEM 
ECOEND 
CHAIN 
BR 



#30., RO 



#177,TEMPCH 



|TKB,PTPB 



;TEST NUMBER 
?NEXT TEST 
5TYPE HEADER 

?G0 WAIT FOR KEYBOARD INPUT 
?DELAY FOR HALF DUPLEX 

JCHECK IF RUBOUT 
?BRANCH IF YES 
?N0, CHECK PRINTER READY 
;READY, ECHO CHARACTER 

?PRINT TERMINATION MESSAGE 

;CHAIN TO NEXT TEST 
;RSPEAT TEST 



XXXXXXXXXX 

E021— LINE ECHO TEST, FAST RATS— THIS TEST WILL 

CAUSE THE CONTINUAL PRINTING OF "0" AT THE MAXIMUM 

RATE UNTIL EITHER ANOTHER CHARACTER IS SELECTED 

BY PRESSING A KEY ON THE KEYBOARD OR TERMINATION BY THE 

RUBOUT. 



; XXXXXXXXXX 



III*' 



21 

E022 

PRTHDR 

MOV 

MOV 

MOV 

PRINTC 
DEC 
BGT 
CRLF 



#60,REPT 
WIDTH, R2 
REPT,R0 

R2 
2S 



?TEST NUMBER 
;NEXT TEST 
JTYPE HEADER 

CHARACTER TO BE REPEATED (0) 

;SET COLUMN COUNT 

;GET CHAR 

;PRINT CHAR 

?DEC COLUMN COUNT 

?FINISH LINE 

?SEND A CR AND LF 
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104016 
512767 

'S 
2 



01670 



000767 
104012 
000763 



000060 
166406 
166412 



XXXXXXXXXX 



LINE ECHO TEST, SLOW RATE— SAME AS E021 EXCEPT 
IH^I^S^P.IM^ IS INTRODUCED BETWEEN CHARACTERS 
TO PRODUCE A LCV ACTION 



JXXXXXXXXXX 
lo22 



E022A: 



II23 
PPTHDR 
MOV 
MOV 
MOV 

PRINTC 

DEC 

BEQ 

MOV 

DELAY 

BR 

CRLF 
BR 



#60,REPT 
HIDTH,R2 
REPT,RO 

R2 

1^410, RO 



IS 



?TYPE HEADER 

?LOAD AS INITIAL CHARACTER 

JSET COLUMN COUNT 

?GET CHAR 

?PRINT CHAR 

JDEC COLUMN COUNT 

;BRANCH if DONE LINE 

;DELAY 1.8 SEC. 
?OUTPUT NEW CHAR. 
JSBND A CR AND LF 
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276 



hi6 



2336 
2341 

mi 

2346 
2356 

m\ 

|365 
23^1 

ii 

2421 

m 

2426 

2431 

im 

012436 



U 
,33 

i05 
§40 

u 
ti 

.40 

J« 

'26 
5Q 



46 
03 
40 
123 
40 

m 

104 

104 
040 

l\i 

ni 
m 

105 
040 

105 



THIS FOLLOWINC TABLE IS USED BY TEST E023 

********** 



125 


114 HOMIC! 


.ASCII 


/NUL 


/ 


117 


110 


.ASCII 


/SOH 


/ 


124 


130 


.ASCII 


/STX 


/ 


124 


130 


.ASCII 


/ETX 


/ 


117 


124 


.ASCII 


/EOT 


/ 


116 


121 


.ASCII 


/ENO 


/ 


103 


113 


.ASCII 


/ACK 


/ 


105 


114 


. ASCII 


/BEL 


/ 


123 


040 


-ASCII 


/BS 


/ 


124 


40 


. ASCII 


/HT 


/ 


106 


040 


.ASCII 


/LF 


/ 


124 


040 


. ASCII 


/¥T 


/ 


106 


040 


.ASCII 


/FF 


/ 


122 


040 


.ASCII 


/CR 


/ 


117 


040 


.ASCII 


/SO 


/ 


111 


040 


.ASCII 


/SI 


/ 


114 


105 


.ASCII 


/OLE 


/ 


103 


061 


.ASCII 


/DCl 


/ 


103 


362 


.ASCII 


/DC2 


/ 


103 


063 


.ASCII 


/DC3 


/ 


103 


064 


.ASCII 


/DC4 


/ 


101 


113 


.ASCII 


/NAK 


/ 


131 


116 


.ASCII 


/SYN 


/ 


124 


102 


«ASCII 


/ETB 


/ 


101 


116 


-ASCII 


/CAN 


/ 


115 


40 


.ASCII 


/EM 


/ 
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10600 
1070O 
10830 
10900 

llOOO 

moo 

11200 



2441 

2446 

2451 

m 

2456 

2466 
2471 

m 



40 

105 
040 

h% 

107 



125 
40 



125 
123 
123 
123 
123 
123 
120 



102 
103 
040 
040 
040 
040 
40 



400 



.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.EVEN 



/SUB 

/ESC 

/FS 

/GS 

/RS 

/US 

/SP 
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1600 
1760 



m 

2500 
2B00 



3200 
3300 



^^8 



360O 
"700 



3900 
4000 

4250 
4300 

If 

470 
480 
490 



52$0 

"II 

m I 

m s 

610O 

AM 8 

16400 5 

'""0 



7000 



062706 
00 4767 



P52 
2554 



mm 
mm 

012700 

iim 

012700 
014272 

mm 

012702 
012701 

mm 
mr 

11004 
00530 
0014O 



XXXXXXXXXX 



CHARACTER CODE TEST— ANY CHARACTER SELECTED 

WILL BE ECHOED ALONG WITH ITS OCTAL CODE. 

A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER 

IF IT IS A NON-PRINTING CHARACTER. 

THE PARITY OF THE RECEIVED CODE HILL ALSO BE 

INDICATED AS EITHER EYEN OR ODD. 



XXXXXXXXXX 



000036 
166160 



000130 
166144 



012272 
000166 



000041 



26727 166116 000177 3$: 



013010 
166102 
000040 
000040 



mm 

013010 
000110 



013014 
000072 




23 

E024 

PRTHDR 

READ 

MOV 

DELAY 

CMP 

BHIS 

JSR 

MOVB 

ASL 

ASL 

ADD 

JSR 

TYPE 

E023M 

BR 

CMP 

BEQ 

MOV 

HOVB 

MOVB 

MOVB 

MOVB 

JSR 

MOV 

JSP 

BR 

JSR 

MOV 

JSR 

TYPE 

E023H 

TYPEM 

ECOEND 

CHAIN 

BR 

MOV 

MOV 

m 

BIC 

ADD 

MOVB 

DEC 

BEQ 



#30., RO 
TEMPCH,«41 

pLstrln 
tempch,ro 

#monic,ro 
pcmovnum 



IS 

TEMPCH,#177 

|mG24,R1 
TEMPCH,(R1)4- 



PL*5THLN 
#MG24#R0 

PC^MOVNUH 

Pt,STRLN 
»m525,R0 
PC^MOVNUM 



1$ 

#3,R2 
pfNp^Rl 

PCHAR,RO 
,R0 



#177770, R 
§60, RO 
R0,-(R1) 



JTEST NUMBER 

?NEXT TEST 

?TYPE HEADER 

?R0 WAIT FOR CHARACTER 

JDELAY FOR HALF DUPLEX 

;TEST IF CHAR IS PRINTABLE 

?BRANCH IF IT IS 

;STORE CODE INTO MESSAGE 

?GET CODE AGAIN 

JMULT BY 2 

?MULT BY 4 

;add addr of mnemonic table 
?mov mnemonic to message 
;type code and mnemonic 
? address of message 
;gq wait for next character 

?TEST IF char is A RU80UT 

;rranch if rubout 



;STORE CODE INTO MESSAGE 
?ADDR OF CHAR INTO RO 
?MOVE CHAR INTO MESSAGE 
JTYPE MESSAGE 

JRUBOUT, CONVERT AND STOR CODE 
MDDR- OF DEL INTO RO 
?MOVE DEL INTO MESSAGE 
JTVPE MESSAGE 
;ADDR of MESSAGE 

JCHAIN TO NEXT TEST 

JREPEAT TEST 

yCOUNT OF 3 TO R2 

JADOR OF MESG TO Rl 

;PQINT TO LAST SPACE IN MESG 

;M0VE OCTAL CODE TO RO 

;SAVE LS OCTAL CHAR 

jMAfTE ASCII 

;M0VE INTO MESG 

;decrement char counter 
?rranch if 3 moved 
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013014 
013017 



6267 

ill 

ml 

1375 
"767 

000402 
"12700 

nm 

05302 

mm 

040 
40 



104 
40 



mm 

165752 



014327 
000004 



mm 



mSv 



114 MG25: 



ASR 

ASR 

ASR 

BR 

RTS 

MOV 

MOV 

MOVB 

DEC 

BNE 

TSTB 

BNE 

MOV 

BR 

MOV 

MOV 

MOVB 

DEC 

BNE 

RTS 



.EVEN 
.ASCII 



PCHAR 
PCHAR 
PCHAR 



hi 



«LINE5A,R1 
i4,R2 

(|0)+,{R1)+ 
IS 

PARITY 

||VEN,RO 

#ODO£R0 
i4,R5 

|r5)*,(ri)+ 



/DEL / 



JNOT THREE, SHIFT NEXT OCTAL 
;CHARACTER to THE RIGHT 

;C0NVERT AND STORE NEXT CHAR 

?RETURN TO CALLER 

;ADDR OF LINES IN Rl 

JCOUNT OF 4 TO R2 

?MQV 4 CHARS TO MESG AREA 

;DECREMENT COUNTER 

?8RANCH IF NOT ALL DONE 

;TEST PARITY PLAG 

yBRANCH IF ODD PARITY 

;SET ADDRESS FOR EVEN PARITY MESG 

;CONTIN«E 

?SET ADDRESS FOR ODD PARITY MESG 

yCOUNT OF 4 TO R2 

;M0VE 4 CHARS TO MESG AREA 

?DECREMENT COUNTER 

; BRANCH IF NOT DONE 

;RETURN 

;SAVE CHARACTER CODE 



JMNEMONIC FOR RUBOUT 
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0024 

im 

Ml 

mm 

,1413 
020127 



|E024»- SELECTED PATTERN ECHO TEST-- SELECT 1 TO 256 

I CHARACTERS. EACH MILL BE ECHOEO 

I AND STORED UNTIL THE CHfL/C IS SELECTED. 

I AT THAT TIME ALL CHARACTERS MILL BE PRINTED AS 

I CONTINOUS STRING UNTIL EITHER THE RUBOUT IS 

I SELECTED TO TERMIMIfE OR ^HB CNTL/C IS SELECTED 

% AGAIN, k TERMINATING CNTL/C FOLLOMED B¥ ANOTHER 

I CNTL/C WLL ALWAYS CAUSE THE LAST INPUTTED STRING TO 

I BE PRINTED. A TERMIMATING CNTL/C FOLLOWED BY A CHARACTER OTHER THAN A 

? RUBOUT ^ILL CAUSE A HEM STRING TO BE INPUTTED, 
5 XXXXXXKXXKX 



E024I 



013164 
000036 

000177 165626 
000003 165616 
000400 
165602 

165572 165510 



io25 
PRTHDR 
CLR 
MOV 
READ 
M0¥ 
DELAY 
CMP 
BEQ 
CMP 
BEQ 
CMP 

mi 

INC 

PRNT 
MOVR 
BR 



ITEST 
I NE XT 



020227 013164 

^-"403 

165554 

0i2702 013164 
02j|27 000003 



0721 
000003 



Rl 

#BUFR,R2 

|30,*.R0 

#177rTEMPCH 

TERM 

P.TEMPCH 
OUTPUT 
rL»256. 

tImPCH^CR2)4- 
Rl 

J|MPCH^gTPB 

fsECflON TO OUTPUT CONTINOUS 
OUTPUTS CMP R2,fBUFR 

MPCH*r<R2)* 

HV.V\.¥ 

ISI 

2SS 




NUMBER 
. „ _ TEST 
?TYPE TEST HEftDER 
;CLEAR CHARACTER COUNT 
;AD0RESS of BUFFER TO R2 
?WAIT FOR INPUT 
;DELAY FOR HALF DUPLEX 

JTEST IF RUBOUT 
JHRANCH IF RUBOUT 
;TEST IF CNTL-C 
JBRANCH IF CNTL-C 

?YES, CHECK IF CHAR CNT IS EQ, GT 256 

^INCREMENT CHARACTER COUNT 
?CHECIf IF PRINTER READY 
JECHO CHAR 

;G0 WAIT FOR NEXT CHAR 



iCHECfC IF POINTER IS AT START OF TABLE 

;YES, BRANCH 

?M0, STORE "C IN TABLE 

;SEND A CR LP 

^BUFFER ADDRESS TO R2 

;CHECK IF FIRST CHAR IS *C 

?YES^ LOOK FOR INPUT AGAIN 

?GET CHARACTER 

fDONE STRING? 

yVES. RESTART STRING 

;PRINT CHAR 

;CONTINUE 

;OUTPUT TERMINATION MESSAGE 

ICHAIN TO NEXT TEST 
?REPEAT TEST 

;INITIALI7E FIRST CHAR AS CNTL-C IN TABLE 
1256 CHARACTER BUFFER 



C|LACE0^L&36 TERM {DLll & KLll) MACRO MlllO 
LA36 ECHO TESTS 



25-AUG-78 10:13 PAGE 60 




I XXXXXKXKXXX 

|E025— IgLL ECHO TEST--; A MESSAGE IS PRINTED AND 
? THE TEST WAITS FOR SOME PRINTABLE CHARACTER 

? TO BE SELECTED ON THE KEYBOARD (GT040). THIS 

/ TEST IS VALID ONLY IF THE PAPER WIDTH IS GT 64 



165052 000101 ISs 



165046 000040 
000177 165034 



165024 164742 



2$: 



COLUMNS. 

MESSAGE 



JXXXXXXXXXXX 



25 

E020 

PRTHDR 

CMP 

BLO 

TYPEM 

E025MA 

BR 

TYPE 

E025MA 

READ 

MOV 

DELAY 

CMP 

BLO 

CMP 

8EQ 

PRNT 

MOVB 

SCPLF 

BR 

TYPEM 
E025MB 

TYPEM 

ECOEND 

CHAIN 

BR 



IrJll^COLUMI^S AN ILLEGAL BELL TEST 
ia r K I NTL D • 



WIDTH, »101 

4$ 



3S 



»30.rP0 

TEMPCH,«40 

^i77,TEMPCH 

TFMPCH#9TPB 



IS 



;TEST NUMBER 
;NEXT test HEADER 
?PPINT HEADER 

;TEST if column CQUNTIS EQ^GT 64 

;branch if not 
?type test mesg 

;mait for char 

/type test mesg on term char rcvd on 

?wait for operator response 
;delay for half duplex 

?test if printable 

;BRANCH IF NON-PRINTABLE 
ICHECK IF CHAR IS RUBOUT 
;BRANCH IF YES 
?CHECK IF PRINTER IS READY 

;print chip. (bell should sound) 

?send a CRLF 

;repeat 

?type error message 

jprint termination 

;sxit to next test 
?repeit test 
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CZLACEO LA36 TERM 
MISC, DIAGNOSTIC M 



013676 



013712 



013726 



13745 



500 



013772 



nil 



600 



730 



1000 



1100 



inn 



:dlii & KLii) 

SSSAGES 



MACRO MlllO 25-AUG-78 10:13 PAGE 62 



007 

III 

114 

li 

114 

040 

hi 
m 

S! 

14 

w 

00 

It 



m 

200 

m 

946 
60 
104 

h 

10 ■ 



60 
040 



002 
103 

In 

101 
040 

m 

isi 



012 

181 

040 



04i 



103 
"3 
_5 
.40 
060 

iW 

000 



200 

III 

063 
124 

m 

061 
040 

063 
124 



{ft III 



III III III 



117 



iff HI iii 

20U 

ill 



.SRTTL MISC. DIAGNOSTIC MESSAGES 

.ASCII <7><2><ACRLF><17>/C7XACB0 LA36 TERM (DLll & KLll) /<ACRLF> 



.ASCII /LA36 TERMINAL DI AGNOSTIC/<ACRLF> 



m 
lis 

124 



200 

1 

060 
117 



.ASCIZ /DLll & KLll INTERFACE/<ACRLF><12> 



EMDPAS: .ASCII <ACRLF><12>/END OF PASS f 

PASMES: .ASCIZ /0000/<ACRLF><12> 

DLllS: .ASCII <ACRLF>/CONSOLE & / 

OmSl: .ASCIZ /OO DLll'S UNDER TEST/< ACRLF><12> 



.ASCIZ C7><2><ACRLF><17><12>/TEST «/ 



HDROS 



.ASCIZ /OOO C0LUMNS/<ACRLF><12> 
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1800 



2O0O 




m 



m 
m 

4264 



4275 
4300 

i_ : 

4311 

4r ^ 
4: 

4L__ 
4323 



43 47 



120 

m 



^ L 

' 124 

I \" 

1 

I 



7 10' 



38 

000 

i 

m 



111 

122 

i 

ill 
111 



115 

'6 



^1 11: 



111 } 



045 

lit 

m 

103 

"1 

5 
126 



m 



m 

t04 
n 
14 

III 



E025MA: .ASCII /TYPE ANY PRINTABLE CHARACTER / 



.ASCIZ /AND LISTEN FOR BELL / 



III W }l 



7 E025MB: .ASCIZ <ACRLF>/NOT ENOUGH COLUMNS/<ACRLF> 



k 
m 

040 

!i 



ECOEND: .ASCIZ <ACRLF>/ECHO TEST TERHINATED/< ACRLF> 



E023M: 

040 lines: 

|4| LINE5A: 



II] 



105 EVEN: 



.ASCII / / 

.ASCII / / JMESG FOR TEST E024 

.ASCIZ / /<ACRLF> 

.ASCIZ <ACRLF><17><12>/SELECT TEST NUMBER / 



.ASCII /BYEN/ 
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14412 



him 

014462 

mm 
mm 



III 
m 
m 

Ws 

125 

ill 

05 

u 

17 

m 



104 odd: 

OPMSG: 
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.ASCII /ODD / 

.ASCIZ /TYPE ANY CHARACTER/ 



SEQ 0121 



105 NOSWR: 



.ASCIZ /USE SOFTWARE SWITCH REG AT MEMORY ADDR 176/<7> 
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SYMBOL TABLE 

ACRLF = 
ADJR4 

ATO 
ATOX 
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05674 

88888^ 

im 

02q5oo 

mm 
mm 

000040 

iim 



ERRORS DETECTED: 

VIRTUAL MEMORY US 
DYNAMIC MEMORY: 
ELAPSED time: 00 
CZLACE.BIN/CZLACE 




012112 

0656 

14051 
014064 

"im 

3346 



E024B 

-025 



2846 WORDS ( 12 PAGES) 
' 14 PAGES) 



ml 



007676 



LINE3 
HNE5 

mm 



NXfgf 
ODD 

OPEN = 

OPMSG 

OUTPUT 

PARITY 

PASCNT 

PASMES 



mm 



PRGTAB 

PRINTC= 
PRMT - 
PRTHDRr 
PRTY4 = 
PRTY7 = 



PT7 

READ = 
REAOC = 
READ! 
RSF 
REPT 

mw 

SAVR6 
SCOPSH= 
SCOPTR 
SCRLF = 

Ilk?" 

SPARET 
SPBOT 
SPC 
SPCNT 

SR 

START 

STARTM 

STARTX 

START! 

START2 



122 
.04016 

m\ 

m 
its 
\i\ 

.546 

m 

010630 

urn 

010414 

im 

mm 

000642 
104013 



00754 



^PRHDR 

iPRNT 

SPRTC 

SREAD 

SREADC 

SSCRLF 



m 



176 
712 



90672 
0614 



000620 
004004 

8881!^ 

m 

001776 



Um 



mm 

§03562 
mi 

0Q4314 

mm 

004204 
003142 



1844 WORDS 
l00:52 
,LST/-SP=CZLACE.MAC 



